home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 14 / CU Amiga Magazine's Super CD-ROM 14 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-09].iso / CUCD / Programming / SAS-C / sc655pch / Install_6.55_Patch < prev    next >
Encoding:
Text File  |  1995-02-27  |  70.7 KB  |  1,982 lines
  1. (complete 0)
  2. (set @default-dest "SC:")
  3.  
  4.  
  5. (if (= (getassign "t") "")
  6.   (makeassign "t" "ram:")
  7. )
  8.  
  9. (set answer1
  10.         (askchoice
  11.                 (prompt "Choose where the 6.55 patch should be applied.")
  12.                 (choices "Hard Disk" "Floppy Disk")
  13.                 (help "Selecting Hard Disk will patch the files in SC: by reading "
  14.                       "the original files from the master floppies, and writing "
  15.                       "the new versions to their proper place in the SC: directory. "
  16.                       "Selecting Floppy Disk will patch the set of 3 disks "
  17.                       "created by the Floppy install.\n\n"
  18.                       "Neither of these choices will modify any files on the original "
  19.                       "disks."
  20.                 )
  21.          (default 0)
  22.         )
  23. )
  24.  
  25. (copyfiles (source "SASC_6.50_Disk_1:makegst")
  26.            (dest   "ram:")
  27. )
  28.  
  29.  
  30. (makedir "t:6.55_c")
  31. (copyfiles (source "spatch") (dest "t:6.55_c"))
  32. (copyfiles (source "flush") (dest "t:6.55_c"))
  33. (copyfiles (source "decompress") (dest "t:6.55_c"))
  34. (copyfiles (source "concat") (dest "t:6.55_c"))
  35.  
  36.  
  37. (if (= answer1 0)
  38.   (
  39.  
  40.    (makedir "t:patches")
  41.    (run ("t:6.55_c/decompress 1_files t:patches"))
  42.    (copyfiles (source "Read.Me") (dest "sc:") (newname "Read.Me.6.55"))
  43.    (copyfiles (source "Read.Me.info") (dest "sc:") (newname "Read.Me.6.55.info"))
  44.    
  45.    (askdisk (assigns) (dest "SASC_6.50_Disk_1")
  46.             (prompt "Please Insert Disk 1 of the SAS/C Development System")
  47.             (help "Insert Disk 1 in any drive. The files will be read from "
  48.                   "Disk 1, and placed in SC:. Nothing on Disk 1 will be "
  49.                   "modified." 
  50.             )
  51.    ) 
  52.  
  53.    (copyfiles (source "SASC_6.50_Disk_1:more") (dest "t:6.55_c"))
  54.    
  55.    (if (exists "sc:c/sc")
  56.       (
  57.          (working "Patching sc")
  58.          (run ("t:6.55_c/decompress SASC_6.50_Disk_1:Compiler/c_files t: sc"))
  59.          (run ("t:6.55_c/spatch -osc:c/sc -pt:patches/sc.pch t:sc"))
  60.          (delete "t:sc")
  61.       )
  62.    )
  63.  
  64.    (if (exists "sc:c/scmsg")
  65.       (
  66.          (working "Patching scmsg")
  67.          (run ("t:6.55_c/decompress SASC_6.50_Disk_1:Compiler/c_files t: scmsg"))
  68.          (run ("t:6.55_c/spatch -osc:c/scmsg -pt:patches/scmsg.pch t:scmsg"))
  69.          (delete "t:scmsg")
  70.       )
  71.    )
  72.    (complete 2)
  73.    
  74.    (if (exists "sc:c/scsetup")
  75.       (
  76.          (working "Patching scsetup")
  77.          (run ("t:6.55_c/decompress SASC_6.50_Disk_1:Compiler/c_files t: scsetup"))
  78.          (run ("t:6.55_c/spatch -osc:c/scsetup -pt:patches/scsetup.pch t:scsetup"))
  79.          (delete "t:scsetup")
  80.       )
  81.    )
  82.    (complete 4)
  83.  
  84.    (if (exists "sc:c/se")
  85.       (
  86.          (working "Patching se")
  87.          (run ("t:6.55_c/decompress SASC_6.50_Disk_1:Compiler/c_files t: se"))
  88.          (run ("t:6.55_c/spatch -osc:c/se -pt:patches/se.pch t:se"))
  89.          (delete "t:se")
  90.       )
  91.    )
  92.    (complete 6)
  93.  
  94.    (if (exists "sc:c/smake")
  95.       (
  96.          (working "Patching smake")
  97.          (run ("t:6.55_c/decompress SASC_6.50_Disk_1:Compiler/c_files t: smake"))
  98.          (run ("t:6.55_c/spatch -osc:c/smake -pt:patches/smake.pch t:smake"))
  99.          (delete "t:smake")
  100.       )
  101.    )
  102.    (if (exists "sc:c/scopts")
  103.       (
  104.          (working "Patching scopts")
  105.          (run ("t:6.55_c/decompress SASC_6.50_Disk_1:Compiler/c_files t: scopts"))
  106.          (run ("t:6.55_c/spatch -osc:c/scopts -pt:patches/scopts.pch t:scopts"))
  107.          (delete "t:scopts")
  108.       )
  109.    )
  110.    (if (exists "sc:c/slink")
  111.       (
  112.          (working "Patching slink")
  113.          (run ("t:6.55_c/decompress SASC_6.50_Disk_1:Compiler/c_files t: slink"))
  114.          (run ("t:6.55_c/spatch -osc:c/slink -pt:patches/slink.pch t:slink"))
  115.          (delete "t:slink")
  116.       )
  117.    )
  118.    (complete 8)
  119.  
  120.    (if (exists "sc:libs/sc1.library")
  121.       (
  122.          (working "Patching sc1.library")
  123.          (run ("t:6.55_c/decompress SASC_6.50_Disk_1:Compiler/libs_files t: sc1.library"))
  124.          (run ("t:6.55_c/spatch -osc:libs/sc1.library -pt:patches/sc1.pch t:sc1.library"))
  125.          (delete "t:sc1.library")
  126.       )
  127.    )
  128.    (if (exists "sc:libs/scgst.library")
  129.       (
  130.          (working "Patching scgst.library")
  131.          (run ("t:6.55_c/decompress SASC_6.50_Disk_1:Compiler/libs_files t: scgst.library"))
  132.          (run ("t:6.55_c/spatch -osc:libs/scgst.library -pt:patches/scgst.pch t:scgst.library"))
  133.          (delete "t:scgst.library")
  134.       )
  135.    )
  136.    (complete 10)
  137.  
  138.    (if (exists "sc:libs/sc2.library")
  139.       (
  140.          (working "Patching sc2.library")
  141.          (run ("t:6.55_c/decompress SASC_6.50_Disk_1:Compiler/libs_files t: sc2.library"))
  142.          (run ("t:6.55_c/spatch -osc:libs/sc2.library -pt:patches/sc2.pch t:sc2.library"))
  143.          (delete "t:sc2.library")
  144.       )
  145.    )
  146.    (complete 12)
  147.    (if (exists "sc:libs/sekeymap.library")
  148.       (
  149.          (working "Patching sekeymap.library")
  150.          (run ("t:6.55_c/decompress SASC_6.50_Disk_1:Compiler/libs_files t: sekeymap.library"))
  151.          (run ("t:6.55_c/spatch -osc:libs/sekeymap.library -pt:patches/sekeymap.pch t:sekeymap.library"))
  152.          (delete "t:sekeymap.library")
  153.       )
  154.    )
  155.  
  156.    (run "delete t:patches/#?")
  157.  
  158. ; Disk 2
  159.  
  160.    (run ("t:6.55_c/decompress 2_files t:patches"))
  161.  
  162.    (askdisk (assigns) (dest "SASC_6.50_Disk_2")
  163.             (prompt "Please Insert Disk 2 of the SAS/C Development System")
  164.             (help "Insert Disk 2 in any drive. The files will be read from "
  165.                   "Disk 2, and placed in SC:. Nothing on Disk 2 will be "
  166.                   "modified." 
  167.             )
  168.    ) 
  169.    (if (exists "sc:include/assert.h")
  170.       (
  171.          (working "Patching assert.h")
  172.          (run ("t:6.55_c/decompress SASC_6.50_Disk_2:compiler/include_files t: assert.h"))
  173.          (run ("t:6.55_c/spatch -osc:include/assert.h -pt:patches/assert.pch t:assert.h"))
  174.          (delete "t:assert.h")
  175.       )
  176.    )
  177.    (if (exists "sc:include/stdlib.h")
  178.       (
  179.          (working "Patching stdlib.h")
  180.          (run ("t:6.55_c/decompress SASC_6.50_Disk_2:compiler/include_files t: stdlib.h"))
  181.          (run ("t:6.55_c/spatch -osc:include/stdlib.h -pt:patches/stdlib.pch t:stdlib.h"))
  182.          (delete "t:stdlib.h")
  183.       )
  184.    )
  185.    (if (exists "sc:include/stdio.h")
  186.       (
  187.          (working "Patching stdio.h")
  188.          (run ("t:6.55_c/decompress SASC_6.50_Disk_2:compiler/include_files t: stdio.h"))
  189.          (run ("t:6.55_c/spatch -osc:include/stdio.h -pt:patches/stdio.pch t:stdio.h"))
  190.          (delete "t:stdio.h")
  191.       )
  192.    )
  193.    (if (exists "sc:include/functions.h")
  194.       (
  195.          (working "Patching functions.h")
  196.          (run ("t:6.55_c/decompress SASC_6.50_Disk_2:compiler/include_files t: functions.h"))
  197.          (run ("t:6.55_c/spatch -osc:include/functions.h -pt:patches/functions.pch t:functions.h"))
  198.          (delete "t:functions.h")
  199.       )
  200.    )
  201.    (if (exists "sc:include/unistd.h")
  202.       (
  203.          (working "Patching unistd.h")
  204.          (run ("t:6.55_c/decompress SASC_6.50_Disk_2:compiler/include_files t: unistd.h"))
  205.          (run ("t:6.55_c/spatch -osc:include/unistd.h -pt:patches/unistd.pch t:unistd.h"))
  206.          (delete "t:unistd.h")
  207.       )
  208.    )
  209.    (if (exists "sc:include/fcntl.h")
  210.       (
  211.          (working "Patching fcntl.h")
  212.          (run ("t:6.55_c/decompress SASC_6.50_Disk_2:compiler/include_files t: fcntl.h"))
  213.          (run ("t:6.55_c/spatch -osc:include/fcntl.h -pt:patches/fcntl.pch t:fcntl.h"))
  214.          (delete "t:fcntl.h")
  215.       )
  216.    )
  217.    (if (exists "sc:include/dos.h")
  218.       (
  219.          (working "Patching dos.h")
  220.          (run ("t:6.55_c/decompress SASC_6.50_Disk_2:compiler/include_files t: dos.h"))
  221.          (run ("t:6.55_c/spatch -osc:include/dos.h -pt:patches/dos.pch t:dos.h"))
  222.          (delete "t:dos.h")
  223.       )
  224.    )
  225.    (if (exists "sc:include/mffp.h")
  226.       (
  227.          (working "Patching mffp.h")
  228.          (run ("t:6.55_c/decompress SASC_6.50_Disk_2:compiler/include_files t: mffp.h"))
  229.          (run ("t:6.55_c/spatch -osc:include/mffp.h -pt:patches/mffp.pch t:mffp.h"))
  230.          (delete "t:mffp.h")
  231.       )
  232.    )
  233.    (if (exists "sc:include/string.h")
  234.       (
  235.          (working "Patching string.h")
  236.          (run ("t:6.55_c/decompress SASC_6.50_Disk_2:compiler/include_files t: string.h"))
  237.          (run ("t:6.55_c/spatch -osc:include/string.h -pt:patches/string.pch t:string.h"))
  238.          (delete "t:string.h")
  239.       )
  240.    )
  241.    (if (exists "sc:include/math.h")
  242.       (
  243.          (working "Patching math.h")
  244.          (run ("t:6.55_c/decompress SASC_6.50_Disk_2:compiler/include_files t: math.h"))
  245.          (run ("t:6.55_c/spatch -osc:include/math.h -pt:patches/math.pch t:math.h"))
  246.          (delete "t:math.h")
  247.       )
  248.    )
  249.    (if (exists "sc:include/workbench/workbench.h")
  250.       (
  251.          (working "Patching workbench/workbench.h")
  252.          (run ("t:6.55_c/decompress SASC_6.50_Disk_2:compiler/include/workbench_files t: workbench.h"))
  253.          (run ("t:6.55_c/spatch -osc:include/workbench/workbench.h -pt:patches/workbench.pch t:workbench.h"))
  254.          (delete "t:workbench.h")
  255.       )
  256.    )
  257.    (if (exists "sc:include/datatypes/datatypesclass.h")
  258.       (
  259.          (working "Patching datatypes/datatypesclass.h")
  260.          (run ("t:6.55_c/decompress SASC_6.50_Disk_2:compiler/include/datatypes_files t: datatypesclass.h"))
  261.          (run ("t:6.55_c/spatch -osc:include/datatypes/datatypesclass.h -pt:patches/datatypesclass.pch t:datatypesclass.h"))
  262.          (delete "t:datatypesclass.h")
  263.       )
  264.    )
  265.    (complete 14)
  266.  
  267.    (if (exists "sc:lib/cback.o")
  268.       (
  269.          (working "Patching cback.o")
  270.          (run ("t:6.55_c/decompress SASC_6.50_Disk_2:compiler/lib_files t: cback.o"))
  271.          (run ("t:6.55_c/spatch -osc:lib/cback.o -pt:patches/cback.pch t:cback.o"))
  272.          (delete "t:cback.o")
  273.       )
  274.    )
  275.    (if (exists "sc:lib/c.o")
  276.       (
  277.          (working "Patching c.o")
  278.          (run ("t:6.55_c/decompress SASC_6.50_Disk_2:compiler/lib_files t: c.o"))
  279.          (run ("t:6.55_c/spatch -osc:lib/c.o -pt:patches/c.pch t:c.o"))
  280.          (delete "t:c.o")
  281.       )
  282.    )
  283.    (if (exists "sc:lib/libinit.o")
  284.       (
  285.          (working "Patching libinit.o")
  286.          (run ("t:6.55_c/decompress SASC_6.50_Disk_2:compiler/lib_files t: libinit.o"))
  287.          (run ("t:6.55_c/spatch -osc:lib/libinit.o -pt:patches/libinit.pch t:libinit.o"))
  288.          (delete "t:libinit.o")
  289.       )
  290.    )
  291.    (if (exists "sc:lib/libinitr.o")
  292.       (
  293.          (working "Patching libinitr.o")
  294.          (run ("t:6.55_c/decompress SASC_6.50_Disk_2:compiler/lib_files t: libinitr.o"))
  295.          (run ("t:6.55_c/spatch -osc:lib/libinitr.o -pt:patches/libinitr.pch t:libinitr.o"))
  296.          (delete "t:libinitr.o")
  297.       )
  298.    )
  299.    (if (exists "sc:lib/devinit.o")
  300.       (
  301.          (working "Patching devinit.o")
  302.          (run ("t:6.55_c/decompress SASC_6.50_Disk_2:compiler/lib_files t: devinit.o"))
  303.          (run ("t:6.55_c/spatch -osc:lib/devinit.o -pt:patches/devinit.pch t:devinit.o"))
  304.          (delete "t:devinit.o")
  305.       )
  306.    )
  307.    (if (exists "sc:lib/devinitr.o")
  308.       (
  309.          (working "Patching devinitr.o")
  310.          (run ("t:6.55_c/decompress SASC_6.50_Disk_2:compiler/lib_files t: devinitr.o"))
  311.          (run ("t:6.55_c/spatch -osc:lib/devinitr.o -pt:patches/devinitr.pch t:devinitr.o"))
  312.          (delete "t:devinitr.o")
  313.       )
  314.    )
  315.    (if (exists "sc:lib/cres.o")
  316.       (
  317.          (working "Patching cres.o")
  318.          (run ("t:6.55_c/decompress SASC_6.50_Disk_2:compiler/lib_files t: cres.o"))
  319.          (run ("t:6.55_c/spatch -osc:lib/cres.o -pt:patches/cres.pch t:cres.o"))
  320.          (delete "t:cres.o")
  321.       )
  322.    )
  323.    (if (exists "sc:lib/catch.o")
  324.       (
  325.          (working "Patching catch.o")
  326.          (run ("t:6.55_c/decompress SASC_6.50_Disk_2:compiler/lib_files t: catch.o"))
  327.          (run ("t:6.55_c/spatch -osc:lib/catch.o -pt:patches/catch.pch t:catch.o"))
  328.          (delete "t:catch.o")
  329.       )
  330.    )
  331.    (if (exists "sc:lib/catchres.o")
  332.       (
  333.          (working "Patching catchres.o")
  334.          (run ("t:6.55_c/decompress SASC_6.50_Disk_2:compiler/lib_files t: catchres.o"))
  335.          (run ("t:6.55_c/spatch -osc:lib/catchres.o -pt:patches/catchres.pch t:catchres.o"))
  336.          (delete "t:catchres.o")
  337.       )
  338.    )
  339.    (if (exists "sc:lib/catchres.o")
  340.       (
  341.          (working "Patching catchres.o")
  342.          (run ("t:6.55_c/decompress SASC_6.50_Disk_2:compiler/lib_files t: catchres.o"))
  343.          (run ("t:6.55_c/spatch -osc:lib/catchres.o -pt:patches/catchres.pch t:catchres.o"))
  344.          (delete "t:catchres.o")
  345.       )
  346.    )
  347.    (if (exists "sc:lib/catchresnr.o")
  348.       (
  349.          (working "Patching catchresnr.o")
  350.          (run ("t:6.55_c/decompress SASC_6.50_Disk_2:compiler/lib_files t: catchresnr.o"))
  351.          (run ("t:6.55_c/spatch -osc:lib/catchresnr.o -pt:patches/catchresnr.pch t:catchresnr.o"))
  352.          (delete "t:catchresnr.o")
  353.       )
  354.    )
  355.    (complete 16)
  356.  
  357.    (if (exists "sc:include/sys/commwben.h")
  358.       (
  359.          (working "Patching sys/commwben.h")
  360.          (run ("t:6.55_c/decompress SASC_6.50_Disk_2:compiler/include/sys_files t: commwben.h"))
  361.          (run ("t:6.55_c/spatch -osc:include/sys/commwben.h -pt:patches/commwben.pch t:commwben.h"))
  362.          (delete "t:commwben.h")
  363.       )
  364.    )
  365.    (if (exists "sc:include/sys/commhuge.h")
  366.       (
  367.          (working "Patching sys/commhuge.h")
  368.          (run ("t:6.55_c/decompress SASC_6.50_Disk_2:compiler/include/sys_files t: commhuge.h"))
  369.          (run ("t:6.55_c/spatch -osc:include/sys/commhuge.h -pt:patches/commhuge.pch t:commhuge.h"))
  370.          (delete "t:commhuge.h")
  371.       )
  372.    )
  373.    (if (exists "sc:include/sys/dir.h")
  374.       (
  375.          (working "Patching sys/dir.h")
  376.          (run ("t:6.55_c/decompress SASC_6.50_Disk_2:compiler/include/sys_files t: dir.h"))
  377.          (run ("t:6.55_c/spatch -osc:include/sys/dir.h -pt:patches/dir.pch t:dir.h"))
  378.          (delete "t:dir.h")
  379.       )
  380.    )
  381.    (complete 18)
  382.  
  383.    (if (exists "sc:lib/sc.lib")
  384.       (
  385.          (working "Patching sc.lib")
  386.          (run ("t:6.55_c/decompress SASC_6.50_Disk_2:compiler/lib/sc.lib_files t: sc.lib"))
  387.          (run ("t:6.55_c/spatch -osc:lib/sc.lib -pt:patches/sclib.pch t:sc.lib"))
  388.          (delete "t:sc.lib")
  389.       )
  390.    )
  391.    (complete 20)
  392.  
  393.    (if (exists "sc:lib/scm.lib")
  394.       (
  395.          (working "Patching scm.lib")
  396.          (run ("t:6.55_c/decompress SASC_6.50_Disk_2:compiler/lib/scm.lib_files t: scm.lib"))
  397.          (run ("t:6.55_c/spatch -osc:lib/scm.lib -pt:patches/scmlib.pch t:scm.lib"))
  398.          (delete "t:scm.lib")
  399.       )
  400.    )
  401.    (complete 22)
  402.  
  403.    (if (exists "sc:lib/scs.lib")
  404.       (
  405.          (working "Patching scs.lib")
  406.          (run ("t:6.55_c/decompress SASC_6.50_Disk_2:compiler/lib/scs.lib_files t: scs.lib"))
  407.          (run ("t:6.55_c/spatch -osc:lib/scs.lib -pt:patches/scslib.pch t:scs.lib"))
  408.          (delete "t:scs.lib")
  409.       )
  410.    )
  411.    (complete 24)
  412.  
  413.    (if (exists "sc:lib/scm881.lib")
  414.       (
  415.          (working "Patching scm881.lib")
  416.          (run ("t:6.55_c/decompress SASC_6.50_Disk_2:compiler/lib/scm881.lib_files t: scm881.lib"))
  417.          (run ("t:6.55_c/spatch -osc:lib/scm881.lib -pt:patches/scm881lib.pch t:scm881.lib"))
  418.          (delete "t:scm881.lib")
  419.       )
  420.    )
  421.    (complete 26)
  422.  
  423.  
  424.    (if (exists "sc:lib/scmffp.lib")
  425.       (
  426.          (working "Patching scmffp.lib")
  427.          (run ("t:6.55_c/decompress SASC_6.50_Disk_2:compiler/lib/scmffp.lib_files t: scmffp.lib"))
  428.          (run ("t:6.55_c/spatch -osc:lib/scmffp.lib -pt:patches/scmffplib.pch t:scmffp.lib"))
  429.          (delete "t:scmffp.lib")
  430.       )
  431.    )
  432.    (complete 28)
  433.  
  434.    (if (exists "sc:lib/scmieee.lib")
  435.       (
  436.          (working "Patching scmieee.lib")
  437.          (run ("t:6.55_c/decompress SASC_6.50_Disk_2:compiler/lib/scmieee.lib_files t: scmieee.lib"))
  438.          (run ("t:6.55_c/spatch -osc:lib/scmieee.lib -pt:patches/scmieeelib.pch t:scmieee.lib"))
  439.          (delete "t:scmieee.lib")
  440.       )
  441.    )
  442.    (complete 30)
  443.  
  444.    (if (exists "sc:lib/scmnb.lib")
  445.       (
  446.          (working "Patching scmnb.lib")
  447.          (run ("t:6.55_c/decompress SASC_6.50_Disk_2:compiler/lib/scmnb.lib_files t: scmnb.lib"))
  448.          (run ("t:6.55_c/spatch -osc:lib/scmnb.lib -pt:patches/scmnblib.pch t:scmnb.lib"))
  449.          (delete "t:scmnb.lib")
  450.       )
  451.    )
  452.    (complete 32)
  453.  
  454.    (if (exists "sc:lib/scmsnb.lib")
  455.       (
  456.          (working "Patching scmsnb.lib")
  457.          (run ("t:6.55_c/decompress SASC_6.50_Disk_2:compiler/lib/scmsnb.lib_files t: scmsnb.lib"))
  458.          (run ("t:6.55_c/spatch -osc:lib/scmsnb.lib -pt:patches/scmsnblib.pch t:scmsnb.lib"))
  459.          (delete "t:scmsnb.lib")
  460.       )
  461.    )
  462.    (complete 34)
  463.  
  464.    (if (exists "sc:lib/scsnb.lib")
  465.       (
  466.          (working "Patching scsnb.lib")
  467.          (run ("t:6.55_c/decompress SASC_6.50_Disk_2:compiler/lib/scsnb.lib_files t: scsnb.lib"))
  468.          (run ("t:6.55_c/spatch -osc:lib/scsnb.lib -pt:patches/scsnblib.pch t:scsnb.lib"))
  469.          (delete "t:scsnb.lib")
  470.       )
  471.    )
  472.    (complete 36)
  473.  
  474.    (if (exists "sc:lib/scnb.lib")
  475.       (
  476.          (working "Patching scnb.lib")
  477.          (run ("t:6.55_c/decompress SASC_6.50_Disk_2:compiler/lib/scnb.lib_files t: scnb.lib"))
  478.          (run ("t:6.55_c/spatch -osc:lib/scnb.lib -pt:patches/scnblib.pch t:scnb.lib"))
  479.          (delete "t:scnb.lib")
  480.       )
  481.    )
  482.    (complete 38)
  483.  
  484.    (if (exists "sc:lib/scms.lib")
  485.       (
  486.          (working "Patching scms.lib")
  487.          (run ("t:6.55_c/decompress SASC_6.50_Disk_2:compiler/lib/scms.lib_files t: scms.lib"))
  488.          (run ("t:6.55_c/spatch -osc:lib/scms.lib -pt:patches/scmslib.pch t:scms.lib"))
  489.          (delete "t:scms.lib")
  490.       )
  491.    )
  492.    (complete 40)
  493.  
  494.    (run "delete t:patches/#?")
  495.  
  496. ; Disk 3
  497.    (run ("t:6.55_c/decompress 3_files t:patches"))
  498.  
  499.    (askdisk (assigns) (dest "SASC_6.50_Disk_3")
  500.             (prompt "Please Insert Disk 3 of the SAS/C Development System")
  501.             (help "Insert Disk 3 in any drive. The files will be read from "
  502.                   "Disk 3, and placed in SC:. Nothing on Disk 3 will be "
  503.                   "modified." 
  504.             )
  505.    ) 
  506.  
  507.    (if (exists "sc:libs/scpeep.library")
  508.       (
  509.          (working "Patching scpeep.library")
  510.          (run ("t:6.55_c/decompress SASC_6.50_Disk_3:optimizers/libs_files t: scpeep.library"))
  511.          (run ("t:6.55_c/spatch -osc:libs/scpeep.library -pt:patches/scpeep.pch t:scpeep.library"))
  512.          (delete "t:scpeep.library")
  513.       )
  514.    )
  515.    (complete 42)
  516.  
  517.    (if (exists "sc:libs/scgo.library")
  518.       (
  519.          (working "Patching scgo.library")
  520.          (run ("t:6.55_c/decompress SASC_6.50_Disk_3:optimizers/libs_files t: scgo.library"))
  521.          (run ("t:6.55_c/spatch -osc:libs/scgo.library -pt:patches/scgo.pch t:scgo.library"))
  522.          (delete "t:scgo.library")
  523.       )
  524.    )
  525.    (complete 44)
  526.  
  527.    (if (exists "sc:c/asm")
  528.       (
  529.          (working "Patching asm")
  530.          (run ("t:6.55_c/decompress SASC_6.50_Disk_3:Assembler/c_files t: asm"))
  531.          (run ("t:6.55_c/spatch -osc:c/asm -pt:patches/asm.pch t:asm"))
  532.          (delete "t:asm")
  533.       )
  534.    )
  535.    (if (exists "sc:include/workbench/workbench.i")
  536.       (
  537.          (working "Patching workbench/workbench.i")
  538.          (run ("t:6.55_c/decompress SASC_6.50_Disk_3:Assembler/include/workbench_files t: workbench.i"))
  539.          (run ("t:6.55_c/spatch -osc:include/workbench/workbench.i -pt:patches/workbench.pch t:workbench.i"))
  540.          (delete "t:workbench.i")
  541.       )
  542.    )
  543.    (if (exists "sc:include/datatypes/datatypesclass.i")
  544.       (
  545.          (working "Patching datatypes/datatypesclass.i")
  546.          (run ("t:6.55_c/decompress SASC_6.50_Disk_3:Assembler/include/datatypes_files t: datatypesclass.i"))
  547.          (run ("t:6.55_c/spatch -osc:include/datatypes/datatypesclass.i -pt:patches/datatypesclass.pch t:datatypesclass.i"))
  548.          (delete "t:datatypesclass.i")
  549.       )
  550.    )
  551.  
  552.    (complete 46)
  553.  
  554.    (if (exists "sc:libs/sccxx.library")
  555.       (
  556.          (working "Patching sccxx.library")
  557.          (run ("t:6.55_c/decompress SASC_6.50_Disk_3:C_Plus_Plus/libs_files sc:libs sccxx.library"))
  558.          (run ("t:6.55_c/spatch -osc:libs/sccxx.library -tsc:libs/sccxx.library.new -pt:patches/sccxx.pch sc:libs/sccxx.library"))
  559.       )
  560.    )
  561.    (complete 48)
  562.  
  563.    (if (and (exists "sc:libs/sccxx.library") (exists "sc:cxxinclude/iostream.h")) 
  564.       (
  565.          (working "Patching iostream.h")
  566.          (run ("t:6.55_c/decompress SASC_6.50_Disk_3:C_Plus_Plus/cxxinclude_files t: iostream.h"))
  567.          (run ("t:6.55_c/spatch -osc:cxxinclude/iostream.h -pt:patches/iostream.pch t:iostream.h"))
  568.          (delete "t:iostream.h")
  569.       )
  570.    )
  571.    (complete 50)
  572.  
  573.    (if (and (exists "sc:libs/sccxx.library") (exists "sc:lib/sc.lib")) 
  574.       (
  575.          (working "Patching sccxx.lib")
  576.          (run ("t:6.55_c/decompress SASC_6.50_Disk_3:C_Plus_Plus/lib/sccxx.lib_files t: sccxx.lib"))
  577.          (run ("t:6.55_c/spatch -ot:sccxx.lib.new -pt:patches/sccxxlib.pch t:sccxx.lib"))
  578.          (run ("t:6.55_c/concat sc:lib/sc.lib t:sccxx.lib.new"))
  579.          (delete "t:sccxx.lib")
  580.       )
  581.    )
  582.    (complete 55)
  583.  
  584.    (if (and (exists "sc:libs/sccxx.library") (exists "sc:lib/scm.lib")) 
  585.       (
  586.          (working "Patching sccxxm.lib")
  587.          (run ("t:6.55_c/decompress SASC_6.50_Disk_3:C_Plus_Plus/lib/sccxxm.lib_files t: sccxxm.lib"))
  588.          (run ("t:6.55_c/spatch -ot:sccxxm.lib.new -pt:patches/sccxxmlib.pch t:sccxxm.lib"))
  589.          (run ("t:6.55_c/concat sc:lib/scm.lib t:sccxxm.lib.new"))
  590.          (delete "t:sccxxm.lib")
  591.       )
  592.    )
  593.    (complete 54)
  594.  
  595.    (if (and (exists "sc:libs/sccxx.library") (exists "sc:lib/scm881.lib")) 
  596.       (
  597.          (working "Patching sccxxm881.lib")
  598.          (run ("t:6.55_c/decompress SASC_6.50_Disk_3:C_Plus_Plus/lib/sccxxm881.lib_files t: sccxxm881.lib"))
  599.          (run ("t:6.55_c/spatch -ot:sccxxm881.lib.new -pt:patches/sccxxm881lib.pch t:sccxxm881.lib"))
  600.          (run ("t:6.55_c/concat sc:lib/scm881.lib t:sccxxm881.lib.new"))
  601.          (delete "t:sccxxm881.lib")
  602.       )
  603.    )
  604.    (complete 56)
  605.  
  606.    (if (and (exists "sc:libs/sccxx.library") (exists "sc:lib/scmieee.lib")) 
  607.       (
  608.          (working "Patching sccxxmieee.lib")
  609.          (run ("t:6.55_c/decompress SASC_6.50_Disk_3:C_Plus_Plus/lib/sccxxmieee.lib_files t: sccxxmieee.lib"))
  610.          (run ("t:6.55_c/spatch -ot:sccxxmieee.lib.new -pt:patches/sccxxmieeelib.pch t:sccxxmieee.lib"))
  611.          (run ("t:6.55_c/concat sc:lib/scmieee.lib t:sccxxmieee.lib.new"))
  612.          (delete "t:sccxxmieee.lib")
  613.       )
  614.    )
  615.    (complete 58)
  616.  
  617.    (if (and (exists "sc:libs/sccxx.library") (exists "sc:lib/scmnb.lib")) 
  618.       (
  619.          (working "Patching sccxxmnb.lib")
  620.          (run ("t:6.55_c/decompress SASC_6.50_Disk_3:C_Plus_Plus/lib/sccxxmnb.lib_files t: sccxxmnb.lib"))
  621.          (run ("t:6.55_c/spatch -ot:sccxxmnb.lib.new -pt:patches/sccxxmnblib.pch t:sccxxmnb.lib"))
  622.          (run ("t:6.55_c/concat sc:lib/scmnb.lib t:sccxxmnb.lib.new"))
  623.          (delete "t:sccxxmnb.lib")
  624.       )
  625.    )
  626.    (complete 60)
  627.  
  628.    (if (and (exists "sc:libs/sccxx.library") (exists "sc:lib/scnb.lib")) 
  629.       (
  630.          (working "Patching sccxxnb.lib")
  631.          (run ("t:6.55_c/decompress SASC_6.50_Disk_3:C_Plus_Plus/lib/sccxxnb.lib_files t: sccxxnb.lib"))
  632.          (run ("t:6.55_c/spatch -ot:sccxxnb.lib.new -pt:patches/sccxxnblib.pch t:sccxxnb.lib"))
  633.          (run ("t:6.55_c/concat sc:lib/scnb.lib t:sccxxnb.lib.new"))
  634.          (delete "t:sccxxnb.lib")
  635.       )
  636.    )
  637.    (complete 62)
  638.  
  639.    (run "delete t:patches/#?")
  640.  
  641. ; Disk 4
  642.    (set disk2 0)
  643.    (if (exists "4_files")
  644.       (run ("t:6.55_c/decompress 4_files t:patches")) 
  645.       (
  646.          (run ("t:6.55_c/decompress SASC_6.55_Patch_2:4_files t:patches"))
  647.          (set disk2 1)
  648.          (set @execute-dir "ram:")
  649.       )
  650.    )
  651.  
  652.    (askdisk (assigns) (dest "SASC_6.50_Disk_4")
  653.             (prompt "Please Insert Disk 4 of the SAS/C Development System")
  654.             (help "Insert Disk 4 in any drive. The files will be read from "
  655.                   "Disk 4, and placed in SC:. Nothing on Disk 4 will be "
  656.                   "modified." 
  657.             )
  658.    ) 
  659.  
  660.    (if (exists "sc:c/cpr")
  661.       (
  662.          (working "Patching cpr")
  663.          (run ("t:6.55_c/decompress SASC_6.50_Disk_4:Debugger/c_files t: cpr"))
  664.          (run ("t:6.55_c/spatch -osc:c/cpr -pt:patches/cpr.pch t:cpr"))
  665.          (delete "t:cpr")
  666.       )
  667.    )
  668.  
  669.    (if (exists "sc:libs/schi.library")
  670.       (
  671.          (working "Patching schi.library")
  672.          (run ("t:6.55_c/decompress SASC_6.50_Disk_4:Debugger/libs_files t: schi.library"))
  673.          (run ("t:6.55_c/spatch -osc:libs/schi.library -pt:patches/schi.pch t:schi.library"))
  674.          (delete "t:schi.library")
  675.       )
  676.    )
  677.    (complete 64)
  678.  
  679.    (if (exists "sc:c/cprx")
  680.       (
  681.          (working "Patching cprx")
  682.          (run ("t:6.55_c/decompress SASC_6.50_Disk_4:Cross_Debugger/c_files t: cprx"))
  683.          (run ("t:6.55_c/spatch -osc:c/cprx -pt:patches/cprx.pch t:cprx"))
  684.          (delete "t:cprx")
  685.       )
  686.    )
  687.    (complete 66)
  688.  
  689.    (if (exists "sc:c/cprk")
  690.       (
  691.          (working "Patching cprk")
  692.          (run ("t:6.55_c/decompress SASC_6.50_Disk_4:Cross_Debugger/c_files t: cprk"))
  693.          (run ("t:6.55_c/spatch -osc:c/cprk -pt:patches/cprk.pch t:cprk"))
  694.          (delete "t:cprk")
  695.       )
  696.    )
  697.    (complete 68)
  698.  
  699.    (if (exists "sc:source/_main.c")
  700.       (
  701.          (working "Patching _main.c")
  702.          (run ("t:6.55_c/decompress SASC_6.50_Disk_4:Source_and_Examples/source_files t: _main.c"))
  703.          (run ("t:6.55_c/spatch -osc:source/_main.c -pt:patches/_main.pch t:_main.c"))
  704.          (delete "t:_main.c")
  705.       )
  706.    )
  707.    (if (exists "sc:source/ovs.a")
  708.       (
  709.          (working "Patching ovs.a")
  710.          (run ("t:6.55_c/decompress SASC_6.50_Disk_4:Source_and_Examples/source_files t: ovs.a"))
  711.          (run ("t:6.55_c/spatch -osc:source/ovs.a -pt:patches/ovs.pch t:ovs.a"))
  712.          (delete "t:ovs.a")
  713.       )
  714.    )
  715.    (complete 70)
  716.  
  717.    (if (exists "sc:source/_main.c")
  718.       (
  719.          (working "Adding _iob.c")
  720.          (run ("t:6.55_c/decompress SASC_6.50_Disk_4:Source_and_Examples/source_files t: _main.c"))
  721.          (run ("t:6.55_c/spatch -osc:source/_iob.c -pt:patches/_iob.pch t:_main.c"))
  722.          (delete "t:_main.c")
  723.       )
  724.    )
  725.    (complete 72)
  726.  
  727.    (if (exists "sc:source/cback.a")
  728.       (
  729.          (working "Patching cback.a")
  730.          (run ("t:6.55_c/decompress SASC_6.50_Disk_4:Source_and_Examples/source_files t: cback.a"))
  731.          (run ("t:6.55_c/spatch -osc:source/cback.a -pt:patches/cback.pch t:cback.a"))
  732.          (delete "t:cback.a")
  733.       )
  734.    )
  735.    (if (exists "sc:source/c.a")
  736.       (
  737.          (working "Patching c.a")
  738.          (run ("t:6.55_c/decompress SASC_6.50_Disk_4:Source_and_Examples/source_files t: c.a"))
  739.          (run ("t:6.55_c/spatch -osc:source/c.a -pt:patches/c.pch t:c.a"))
  740.          (delete "t:c.a")
  741.       )
  742.    )
  743.    (if (exists "sc:source/libinit.c")
  744.       (
  745.          (working "Patching libinit.c")
  746.          (run ("t:6.55_c/decompress SASC_6.50_Disk_4:Source_and_Examples/source_files t: libinit.c"))
  747.          (run ("t:6.55_c/spatch -osc:source/libinit.c -pt:patches/libinit.pch t:libinit.c"))
  748.          (delete "t:libinit.c")
  749.       )
  750.    )
  751.    (complete 74)
  752.  
  753.    (if (exists "sc:source/_fpinit.c")
  754.       (
  755.          (working "Patching _fpinit.c")
  756.          (run ("t:6.55_c/decompress SASC_6.50_Disk_4:Source_and_Examples/source_files t: _fpinit.c"))
  757.          (run ("t:6.55_c/spatch -osc:source/_fpinit.c -pt:patches/_fpinit.pch t:_fpinit.c"))
  758.          (delete "t:_fpinit.c")
  759.       )
  760.    )
  761.    (if (exists "sc:source/constructor.h")
  762.       (
  763.          (working "Patching constructor.h")
  764.          (run ("t:6.55_c/decompress SASC_6.50_Disk_4:Source_and_Examples/source_files t: constructor.h"))
  765.          (run ("t:6.55_c/spatch -osc:source/constructor.h -pt:patches/constructor.pch t:constructor.h"))
  766.          (delete "t:constructor.h")
  767.          (copyfiles (source "sc:source/constructor.h") (dest "sc:include"))
  768.       )
  769.    )
  770.    (complete 76)
  771.  
  772.    (if (exists "sc:source/autoopenfail.c")
  773.       (
  774.          (working "Patching autoopenfail.c")
  775.          (run ("t:6.55_c/decompress SASC_6.50_Disk_4:Source_and_Examples/source_files t: autoopenfail.c"))
  776.          (run ("t:6.55_c/spatch -osc:source/autoopenfail.c -pt:patches/autoopenfail.pch t:autoopenfail.c"))
  777.          (delete "t:autoopenfail.c")
  778.       )
  779.    )
  780.    (complete 78)
  781.  
  782.    (if (exists "sc:extras/mkmk/gensmake.c")
  783.       (
  784.          (working "Patching gensmake.c")
  785.          (run ("t:6.55_c/decompress SASC_6.50_Disk_4:Extras/extras/MKMK_files t: gensmake.c"))
  786.          (run ("t:6.55_c/spatch -osc:extras/mkmk/gensmake.c -pt:patches/gensmake.pch t:gensmake.c"))
  787.          (delete "t:gensmake.c")
  788.       )
  789.    )
  790.    (if (exists "sc:extras/mkmk/mkmk.c")
  791.       (
  792.          (working "Patching mkmk.c")
  793.          (run ("t:6.55_c/decompress SASC_6.50_Disk_4:Extras/extras/MKMK_files t: mkmk.c"))
  794.          (run ("t:6.55_c/spatch -osc:extras/mkmk/mkmk.c -pt:patches/mkmk.pch t:mkmk.c"))
  795.          (delete "t:mkmk.c")
  796.       )
  797.    )
  798.    (if (exists "sc:extras/mkmk/mkmk.h")
  799.       (
  800.          (working "Patching mkmk.h")
  801.          (run ("t:6.55_c/decompress SASC_6.50_Disk_4:Extras/extras/MKMK_files t: mkmk.h"))
  802.          (run ("t:6.55_c/spatch -osc:extras/mkmk/mkmk.h -pt:patches/mkmk_h.pch t:mkmk.h"))
  803.          (delete "t:mkmk.h")
  804.       )
  805.    )
  806.    
  807.    (complete 80)
  808.  
  809.    (if (exists "sc:extras/memlib/READ.ME")
  810.       (
  811.          (working "Patching READ.ME")
  812.          (run ("t:6.55_c/decompress SASC_6.50_Disk_4:Extras/extras/Memlib_files t: READ.ME"))
  813.          (run ("t:6.55_c/spatch -osc:extras/memlib/READ.ME -pt:patches/READ.pch t:READ.ME"))
  814.          (delete "t:READ.ME")
  815.       )
  816.    )
  817.  
  818.    (if (exists "sc:extras/memlib/clean.smk")
  819.       (
  820.          (working "Patching clean.smk")
  821.          (run ("t:6.55_c/decompress SASC_6.50_Disk_4:Extras/extras/Memlib_files t: clean.smk"))
  822.          (run ("t:6.55_c/spatch -osc:extras/memlib/clean.smk -pt:patches/clean.pch t:clean.smk"))
  823.          (delete "t:clean.smk")
  824.       )
  825.    )
  826.  
  827.    (if (exists "sc:extras/memlib/example.c")
  828.       (
  829.          (working "Patching example.c")
  830.          (run ("t:6.55_c/decompress SASC_6.50_Disk_4:Extras/extras/Memlib_files t: example.c"))
  831.          (run ("t:6.55_c/spatch -osc:extras/memlib/example.c -pt:patches/example.pch t:example.c"))
  832.          (delete "t:example.c")
  833.       )
  834.    )
  835.  
  836.    (if (exists "sc:extras/memlib/memlib.doc")
  837.       (
  838.          (working "Patching memlib.doc")
  839.          (run ("t:6.55_c/decompress SASC_6.50_Disk_4:Extras/extras/Memlib_files t: memlib.doc"))
  840.          (run ("t:6.55_c/spatch -osc:extras/memlib/memlib.doc -pt:patches/memlib.pch t:memlib.doc"))
  841.          (delete "t:memlib.doc")
  842.       )
  843.    )
  844.  
  845.    (if (exists "sc:extras/memlib/mempriv.h")
  846.       (
  847.          (working "Patching mempriv.h")
  848.          (run ("t:6.55_c/decompress SASC_6.50_Disk_4:Extras/extras/Memlib_files t: mempriv.h"))
  849.          (run ("t:6.55_c/spatch -osc:extras/memlib/mempriv.h -pt:patches/mempriv.pch t:mempriv.h"))
  850.          (delete "t:mempriv.h")
  851.       )
  852.    )
  853.  
  854.    (if (exists "sc:extras/memlib/memwatch.h")
  855.       (
  856.          (working "Patching memwatch.h")
  857.          (run ("t:6.55_c/decompress SASC_6.50_Disk_4:Extras/extras/Memlib_files t: memwatch.h"))
  858.          (run ("t:6.55_c/spatch -osc:extras/memlib/memwatch.h -pt:patches/memwatch.pch t:memwatch.h"))
  859.          (delete "t:memwatch.h")
  860.          (copyfiles (source "sc:extras/memlib/memwatch.h") (dest "sc:include"))
  861.       )
  862.    )
  863.  
  864.    (if (exists "sc:extras/memlib/memwatch.lib")
  865.       (
  866.          (working "Patching memwatch.lib")
  867.          (run ("t:6.55_c/decompress SASC_6.50_Disk_4:Extras/extras/Memlib_files t: memwatch.lib"))
  868.          (run ("t:6.55_c/spatch -osc:extras/memlib/memwatch.lib -pt:patches/memwatch_lib.pch t:memwatch.lib"))
  869.          (delete "t:memwatch.lib")
  870.          (copyfiles (source "sc:extras/memlib/memwatch.lib") (dest "sc:lib"))
  871.       )
  872.    )
  873.  
  874.    (if (exists "sc:extras/memlib/mwcontrol.c")
  875.       (
  876.          (working "Patching mwcontrol.c")
  877.          (run ("t:6.55_c/decompress SASC_6.50_Disk_4:Extras/extras/Memlib_files t: mwcontrol.c"))
  878.          (run ("t:6.55_c/spatch -osc:extras/memlib/mwcontrol.c -pt:patches/mwcontrol.pch t:mwcontrol.c"))
  879.          (delete "t:mwcontrol.c")
  880.       )
  881.    )
  882.  
  883.    (if (exists "sc:extras/memlib/mwlogname.c")
  884.       (
  885.          (working "Patching mwlogname.c")
  886.          (run ("t:6.55_c/decompress SASC_6.50_Disk_4:Extras/extras/Memlib_files t: mwlogname.c"))
  887.          (run ("t:6.55_c/spatch -osc:extras/memlib/mwlogname.c -pt:patches/mwlogname.pch t:mwlogname.c"))
  888.          (delete "t:mwlogname.c")
  889.       )
  890.    )
  891.  
  892.    (if (exists "sc:extras/memlib/mwreport.c")
  893.       (
  894.          (working "Patching mwreport.c")
  895.          (run ("t:6.55_c/decompress SASC_6.50_Disk_4:Extras/extras/Memlib_files t: mwreport.c"))
  896.          (run ("t:6.55_c/spatch -osc:extras/memlib/mwreport.c -pt:patches/mwreport.pch t:mwreport.c"))
  897.          (delete "t:mwreport.c")
  898.       )
  899.    )
  900.  
  901.    (if (exists "sc:extras/memlib/scoptions")
  902.       (
  903.          (working "Patching scoptions")
  904.          (run ("t:6.55_c/decompress SASC_6.50_Disk_4:Extras/extras/Memlib_files t: scoptions"))
  905.          (run ("t:6.55_c/spatch -osc:extras/memlib/scoptions -pt:patches/scoptions.pch t:scoptions"))
  906.          (delete "t:scoptions")
  907.       )
  908.    )
  909.  
  910.    (if (exists "sc:extras/memlib/smakefile")
  911.       (
  912.          (working "Patching smakefile")
  913.          (run ("t:6.55_c/decompress SASC_6.50_Disk_4:Extras/extras/Memlib_files t: smakefile"))
  914.          (run ("t:6.55_c/spatch -osc:extras/memlib/smakefile -pt:patches/smakefile.pch t:smakefile"))
  915.          (delete "t:smakefile")
  916.       )
  917.    )
  918.  
  919.    (if (exists "sc:extras/smfind/smcomm.c")
  920.       (
  921.          (working "Patching smcomm.c")
  922.          (run ("t:6.55_c/decompress SASC_6.50_Disk_4:Extras/extras/SMFind_files t: smcomm.c"))
  923.          (run ("t:6.55_c/spatch -osc:extras/smfind/smcomm.c -pt:patches/smcomm.pch t:smcomm.c"))
  924.          (delete "t:smcomm.c")
  925.       )
  926.    )
  927.  
  928.    (if (exists "sc:extras/CED/env")
  929.       (
  930.          (working "Installing CED version of scmsg")
  931.          (run ("t:6.55_c/decompress SASC_6.50_Disk_4:Extras/extras/CED/env/sc_files sc:extras/CED/env/sc"))
  932.       )
  933.    )
  934.  
  935.    (complete 82)
  936.  
  937.    (run "delete t:patches/#?")
  938.  
  939. ; Disk 5
  940.    (if (= disk2 0)
  941.      (run ("t:6.55_c/decompress 5_files t:patches"))
  942.      (run ("t:6.55_c/decompress SASC_6.55_Patch_2:5_files t:patches"))
  943.    )
  944.  
  945.    (if (exists "sc:examples")
  946.       (
  947.           (makedir "sc:examples/amiproc")
  948.           (makedir "sc:examples/mount")
  949.           (if (= disk2 0)
  950.             (
  951.               (copyfiles (source "amiproc") (dest "sc:examples/amiproc") (all))
  952.               (copyfiles (source "mount") (dest "sc:examples/mount") (all))
  953.               (copyfiles (source "AmiProc.info") (dest "sc:examples"))
  954.               (copyfiles (source "Mount.info") (dest "sc:examples"))
  955.             )
  956.             (
  957.               (copyfiles (source "SASC_6.55_Patch_2:amiproc") (dest "sc:examples/amiproc") (all))
  958.               (copyfiles (source "SASC_6.55_Patch_2:mount") (dest "sc:examples/mount") (all))
  959.               (copyfiles (source "SASC_6.55_Patch_2:AmiProc.info") (dest "sc:examples"))
  960.               (copyfiles (source "SASC_6.55_Patch_2:Mount.info") (dest "sc:examples"))
  961.             )
  962.           )
  963.       )
  964.    )   
  965.  
  966.    (if (exists "sc:extras")
  967.       (
  968.           (makedir "sc:extras/guiprof")
  969.           (if (= disk2 0)
  970.             (
  971.               (copyfiles (source "guiprof") (dest "sc:extras/guiprof") (all))
  972.               (copyfiles (source "guiprof/guiprof") (dest "sc:c") )
  973.               (copyfiles (source "GuiProf.info") (dest "sc:extras"))
  974.             )
  975.             (
  976.               (copyfiles (source "SASC_6.55_Patch_2:guiprof") (dest "sc:extras/guiprof") (all))
  977.               (copyfiles (source "SASC_6.55_Patch_2:guiprof/guiprof") (dest "sc:c"))
  978.               (copyfiles (source "SASC_6.55_Patch_2:GuiProf.info") (dest "sc:extras"))
  979.             )
  980.           )
  981.       )
  982.    )   
  983.  
  984.    (if (exists "sc:extras/memlib")
  985.       (
  986.           (if (= disk2 0)
  987.              (copyfiles (source "memlib") (dest "sc:extras/memlib") (all))
  988.              (copyfiles (source "SASC_6.55_Patch_2:memlib") (dest "sc:extras/memlib") (all))
  989.           )
  990.       )
  991.    )
  992.  
  993.    (if (exists "sc:source")
  994.       (
  995.           (if (= disk2 0)
  996.              (copyfiles (source "source/_tzset.c") (dest "sc:source"))
  997.              (copyfiles (source "SASC_6.55_Patch_2:source/_tzset.c") (dest "sc:source"))
  998.           )
  999.       )
  1000.    )   
  1001.  
  1002.    (askdisk (assigns) (dest "SASC_6.50_Disk_5")
  1003.             (prompt "Please Insert Disk 5 of the SAS/C Development System")
  1004.             (help "Insert Disk 5 in any drive. The files will be read from "
  1005.                   "Disk 5, and placed in SC:. Nothing on Disk 5 will be "
  1006.                   "modified." 
  1007.             )
  1008.    ) 
  1009.  
  1010.    (run "run t:6.55_c/more sc:Read.Me.6.55")
  1011.  
  1012.    (if (exists "sc:c/omd")
  1013.       (
  1014.          (working "Patching omd")
  1015.          (run ("t:6.55_c/decompress SASC_6.50_Disk_5:Extra_Utilities/c_files t: omd"))
  1016.          (run ("t:6.55_c/spatch -osc:c/omd -pt:patches/omd.pch t:omd"))
  1017.          (delete "t:omd")
  1018.       )
  1019.    )
  1020.    (if (exists "sc:rexx/deletetabs.se")
  1021.       (
  1022.          (working "Patching deletetabs.se")
  1023.          (run ("t:6.55_c/decompress SASC_6.50_Disk_5:Extra_Utilities/rexx_files t: deletetabs.se"))
  1024.          (run ("t:6.55_c/spatch -osc:rexx/deletetabs.se -pt:patches/deletetabs.pch t:deletetabs.se"))
  1025.          (delete "t:deletetabs.se")
  1026.       )
  1027.    )
  1028.    (if (exists "sc:rexx/dbptr.cpr")
  1029.       (
  1030.          (working "Patching dbptr.cpr")
  1031.          (run ("t:6.55_c/decompress SASC_6.50_Disk_5:Extra_Utilities/rexx_files t: dbptr.cpr"))
  1032.          (run ("t:6.55_c/spatch -osc:rexx/dbptr.cpr -pt:patches/dbptr.pch t:dbptr.cpr"))
  1033.          (delete "t:dbptr.cpr")
  1034.       )
  1035.    )
  1036.    (if (exists "sc:rexx/man.cpr")
  1037.       (
  1038.          (working "Patching man.cpr")
  1039.          (run ("t:6.55_c/decompress SASC_6.50_Disk_5:Online_Help/rexx_files t: man.cpr"))
  1040.          (run ("t:6.55_c/spatch -osc:rexx/man.cpr -pt:patches/man.pch t:man.cpr"))
  1041.          (delete "t:man.cpr")
  1042.       )
  1043.    )
  1044.    (if (exists "sc:rexx/devices.cpr")
  1045.       (
  1046.          (working "Patching devices.cpr")
  1047.          (run ("t:6.55_c/decompress SASC_6.50_Disk_5:Extra_Utilities/rexx_files t: devices.cpr"))
  1048.          (run ("t:6.55_c/spatch -osc:rexx/devices.cpr -pt:patches/devices.pch t:devices.cpr"))
  1049.          (delete "t:devices.cpr")
  1050.       )
  1051.    )
  1052.    (if (exists "sc:rexx/devs.cpr")
  1053.       (
  1054.          (working "Patching devs.cpr")
  1055.          (run ("t:6.55_c/decompress SASC_6.50_Disk_5:Extra_Utilities/rexx_files t: devs.cpr"))
  1056.          (run ("t:6.55_c/spatch -osc:rexx/devs.cpr -pt:patches/devs.pch t:devs.cpr"))
  1057.          (delete "t:devs.cpr")
  1058.       )
  1059.    )
  1060.    (if (exists "sc:rexx/execbase.cpr")
  1061.       (
  1062.          (working "Patching execbase.cpr")
  1063.          (run ("t:6.55_c/decompress SASC_6.50_Disk_5:Extra_Utilities/rexx_files t: execbase.cpr"))
  1064.          (run ("t:6.55_c/spatch -osc:rexx/execbase.cpr -pt:patches/execbase.pch t:execbase.cpr"))
  1065.          (delete "t:execbase.cpr")
  1066.       )
  1067.    )
  1068.    (if (exists "sc:rexx/ints.cpr")
  1069.       (
  1070.          (working "Patching ints.cpr")
  1071.          (run ("t:6.55_c/decompress SASC_6.50_Disk_5:Extra_Utilities/rexx_files t: ints.cpr"))
  1072.          (run ("t:6.55_c/spatch -osc:rexx/ints.cpr -pt:patches/ints.pch t:ints.cpr"))
  1073.          (delete "t:ints.cpr")
  1074.       )
  1075.    )
  1076.    (if (exists "sc:rexx/libraries.cpr")
  1077.       (
  1078.          (working "Patching libraries.cpr")
  1079.          (run ("t:6.55_c/decompress SASC_6.50_Disk_5:Extra_Utilities/rexx_files t: libraries.cpr"))
  1080.          (run ("t:6.55_c/spatch -osc:rexx/libraries.cpr -pt:patches/libraries.pch t:libraries.cpr"))
  1081.          (delete "t:libraries.cpr")
  1082.       )
  1083.    )
  1084.    (if (exists "sc:rexx/libs.cpr")
  1085.       (
  1086.          (working "Patching libs.cpr")
  1087.          (run ("t:6.55_c/decompress SASC_6.50_Disk_5:Extra_Utilities/rexx_files t: libs.cpr"))
  1088.          (run ("t:6.55_c/spatch -osc:rexx/libs.cpr -pt:patches/libs.pch t:libs.cpr"))
  1089.          (delete "t:libs.cpr")
  1090.       )
  1091.    )
  1092.    (if (exists "sc:rexx/memory.cpr")
  1093.       (
  1094.          (working "Patching memory.cpr")
  1095.          (run ("t:6.55_c/decompress SASC_6.50_Disk_5:Extra_Utilities/rexx_files t: memory.cpr"))
  1096.          (run ("t:6.55_c/spatch -osc:rexx/memory.cpr -pt:patches/memory.pch t:memory.cpr"))
  1097.          (delete "t:memory.cpr")
  1098.       )
  1099.    )
  1100.    (if (exists "sc:rexx/mods.cpr")
  1101.       (
  1102.          (working "Patching mods.cpr")
  1103.          (run ("t:6.55_c/decompress SASC_6.50_Disk_5:Extra_Utilities/rexx_files t: mods.cpr"))
  1104.          (run ("t:6.55_c/spatch -osc:rexx/mods.cpr -pt:patches/mods.pch t:mods.cpr"))
  1105.          (delete "t:mods.cpr")
  1106.       )
  1107.    )
  1108.    (if (exists "sc:rexx/ports.cpr")
  1109.       (
  1110.          (working "Patching ports.cpr")
  1111.          (run ("t:6.55_c/decompress SASC_6.50_Disk_5:Extra_Utilities/rexx_files t: ports.cpr"))
  1112.          (run ("t:6.55_c/spatch -osc:rexx/ports.cpr -pt:patches/ports.pch t:ports.cpr"))
  1113.          (delete "t:ports.cpr")
  1114.       )
  1115.    )
  1116.    (if (exists "sc:rexx/resources.cpr")
  1117.       (
  1118.          (working "Patching resources.cpr")
  1119.          (run ("t:6.55_c/decompress SASC_6.50_Disk_5:Extra_Utilities/rexx_files t: resources.cpr"))
  1120.          (run ("t:6.55_c/spatch -osc:rexx/resources.cpr -pt:patches/resources.pch t:resources.cpr"))
  1121.          (delete "t:resources.cpr")
  1122.       )
  1123.    )
  1124.    (if (exists "sc:rexx/showcli.cpr")
  1125.       (
  1126.          (working "Patching showcli.cpr")
  1127.          (run ("t:6.55_c/decompress SASC_6.50_Disk_5:Extra_Utilities/rexx_files t: showcli.cpr"))
  1128.          (run ("t:6.55_c/spatch -osc:rexx/showcli.cpr -pt:patches/showcli.pch t:showcli.cpr"))
  1129.          (delete "t:showcli.cpr")
  1130.       )
  1131.    )
  1132.    (if (exists "sc:rexx/showprocess.cpr")
  1133.       (
  1134.          (working "Patching showprocess.cpr")
  1135.          (run ("t:6.55_c/decompress SASC_6.50_Disk_5:Extra_Utilities/rexx_files t: showprocess.cpr"))
  1136.          (run ("t:6.55_c/spatch -osc:rexx/showprocess.cpr -pt:patches/showprocess.pch t:showprocess.cpr"))
  1137.          (delete "t:showprocess.cpr")
  1138.       )
  1139.    )
  1140.    (if (exists "sc:rexx/status.cpr")
  1141.       (
  1142.          (working "Patching status.cpr")
  1143.          (run ("t:6.55_c/decompress SASC_6.50_Disk_5:Extra_Utilities/rexx_files t: status.cpr"))
  1144.          (run ("t:6.55_c/spatch -osc:rexx/status.cpr -pt:patches/status.pch t:status.cpr"))
  1145.          (delete "t:status.cpr")
  1146.       )
  1147.    )
  1148.    (if (exists "sc:rexx/whichis.cpr")
  1149.       (
  1150.          (working "Patching whichis.cpr")
  1151.          (run ("t:6.55_c/decompress SASC_6.50_Disk_5:Extra_Utilities/rexx_files t: whichis.cpr"))
  1152.          (run ("t:6.55_c/spatch -osc:rexx/whichis.cpr -pt:patches/whichis.pch t:whichis.cpr"))
  1153.          (delete "t:whichis.cpr")
  1154.       )
  1155.    )
  1156.    (if (exists "sc:c/oml")
  1157.       (
  1158.          (working "Patching oml")
  1159.          (run ("t:6.55_c/decompress SASC_6.50_Disk_5:Extra_Utilities/c_files t: oml"))
  1160.          (run ("t:6.55_c/spatch -osc:c/oml -pt:patches/oml.pch t:oml"))
  1161.          (delete "t:oml")
  1162.       )
  1163.    )
  1164.    (if (exists "sc:c/splat")
  1165.       (
  1166.          (working "Patching splat")
  1167.          (run ("t:6.55_c/decompress SASC_6.50_Disk_5:Extra_Utilities/c_files t: splat"))
  1168.          (run ("t:6.55_c/spatch -osc:c/splat -pt:patches/splat.pch t:splat"))
  1169.          (delete "t:splat")
  1170.       )
  1171.    )
  1172.    (if (exists "sc:c/grep")
  1173.       (
  1174.          (working "Patching grep")
  1175.          (run ("t:6.55_c/decompress SASC_6.50_Disk_5:Extra_Utilities/c_files t: grep"))
  1176.          (run ("t:6.55_c/spatch -osc:c/grep -pt:patches/grep.pch t:grep"))
  1177.          (delete "t:grep")
  1178.       )
  1179.    )
  1180.    (if (exists "sc:c/scompact")
  1181.       (
  1182.          (working "Patching scompact")
  1183.          (run ("t:6.55_c/decompress SASC_6.50_Disk_5:Extra_Utilities/c_files t: scompact"))
  1184.          (run ("t:6.55_c/spatch -osc:c/scompact -pt:patches/scompact.pch t:scompact"))
  1185.          (delete "t:scompact")
  1186.       )
  1187.    )
  1188.    (complete 84)
  1189.  
  1190.    (if (exists "sc:c/mkmk")
  1191.       (
  1192.          (working "Patching mkmk")
  1193.          (run ("t:6.55_c/decompress SASC_6.50_Disk_5:Extra_Utilities/c_files t: mkmk"))
  1194.          (run ("t:6.55_c/spatch -osc:c/mkmk -pt:patches/mkmk.pch t:mkmk"))
  1195.          (delete "t:mkmk")
  1196.       )
  1197.    )
  1198.    (complete 86)
  1199.  
  1200.    (if (exists "sc:c/sc5")
  1201.       (
  1202.          (working "Patching sc5")
  1203.          (run ("t:6.55_c/decompress SASC_6.50_Disk_5:Extra_Utilities/c_files t: sc5"))
  1204.          (run ("t:6.55_c/spatch -osc:c/sc5 -pt:patches/sc5.pch t:sc5"))
  1205.          (delete "t:sc5")
  1206.       )
  1207.    )
  1208.  
  1209.    (if (exists "sc:c/tb")
  1210.       (
  1211.          (working "Patching tb")
  1212.          (run ("t:6.55_c/decompress SASC_6.50_Disk_5:Extra_Utilities/c_files t: tb"))
  1213.          (run ("t:6.55_c/spatch -osc:c/tb -pt:patches/tb.pch t:tb"))
  1214.          (delete "t:tb")
  1215.       )
  1216.    )
  1217.    (complete 88)
  1218.  
  1219.    (if (exists "sc:c/cctosc")
  1220.       (
  1221.          (working "Patching cctosc")
  1222.          (run ("t:6.55_c/decompress SASC_6.50_Disk_5:Extra_Utilities/c_files t: cctosc"))
  1223.          (run ("t:6.55_c/spatch -osc:c/cctosc -pt:patches/cctosc.pch t:cctosc"))
  1224.          (delete "t:cctosc")
  1225.       )
  1226.    )
  1227.    (complete 90)
  1228.  
  1229.    (if (exists "sc:c/lntoslink")
  1230.       (
  1231.          (working "Patching lntoslink")
  1232.          (run ("t:6.55_c/decompress SASC_6.50_Disk_5:Extra_Utilities/c_files t: lntoslink"))
  1233.          (run ("t:6.55_c/spatch -osc:c/lntoslink -pt:patches/lntoslink.pch t:lntoslink"))
  1234.          (delete "t:lntoslink")
  1235.       )
  1236.    )
  1237.    (complete 92)
  1238.  
  1239.    (if (exists "sc:c/mcc")
  1240.       (
  1241.          (working "Patching mcc")
  1242.          (run ("t:6.55_c/decompress SASC_6.50_Disk_5:Extra_Utilities/c_files t: mcc"))
  1243.          (run ("t:6.55_c/spatch -osc:c/mcc -pt:patches/mcc.pch t:mcc"))
  1244.          (delete "t:mcc")
  1245.       )
  1246.    )
  1247.    (complete 94)
  1248.  
  1249.    (if (exists "sc:c/mln")
  1250.       (
  1251.          (working "Patching mln")
  1252.          (run ("t:6.55_c/decompress SASC_6.50_Disk_5:Extra_Utilities/c_files t: mln"))
  1253.          (run ("t:6.55_c/spatch -osc:c/mln -pt:patches/mln.pch t:mln"))
  1254.          (delete "t:mln")
  1255.       )
  1256.    )
  1257.    (complete 96)
  1258.  
  1259.    (if (exists "sc:help/scmsg.guide")
  1260.       (
  1261.          (working "Patching scmsg.guide")
  1262.          (run ("t:6.55_c/decompress SASC_6.50_Disk_5:Online_Help/help_files t: scmsg.guide"))
  1263.          (run ("t:6.55_c/spatch -osc:help/scmsg.guide -pt:patches/scmsg.pch t:scmsg.guide"))
  1264.          (delete "t:scmsg.guide")
  1265.       )
  1266.    )
  1267.    (if (exists "sc:help/sc.guide")
  1268.       (
  1269.          (working "Patching sc.guide")
  1270.          (run ("t:6.55_c/decompress SASC_6.50_Disk_5:Online_Help/help_files t: sc.guide"))
  1271.          (run ("t:6.55_c/spatch -osc:help/sc.guide -pt:patches/sc.pch t:sc.guide"))
  1272.          (delete "t:sc.guide")
  1273.       )
  1274.    )
  1275.    (if (exists "sc:help/sc_lib.guide")
  1276.       (
  1277.          (working "Patching sc_lib.guide")
  1278.          (run ("t:6.55_c/decompress SASC_6.50_Disk_5:Online_Help/help_files sc:help sc_lib.guide"))
  1279.          (run ("t:6.55_c/spatch -osc:help/sc_lib.guide -tsc:help/sc_lib.guide.new -pt:patches/sc_lib.pch sc:help/sc_lib.guide"))
  1280.       )
  1281.    )
  1282.    (if (exists "sc:help/sc_util.guide")
  1283.       (
  1284.          (working "Patching sc_util.guide")
  1285.          (run ("t:6.55_c/decompress SASC_6.50_Disk_5:Online_Help/help_files sc:help sc_util.guide"))
  1286.          (run ("t:6.55_c/spatch -osc:help/sc_util.guide -tsc:help/sc_util.guide.new -pt:patches/sc_util.pch sc:help/sc_util.guide"))
  1287.       )
  1288.    )
  1289.    (complete 98)
  1290.  
  1291.  
  1292.    (run "delete t:patches/#?")
  1293.  
  1294.    (if (and (exists "sc:source/all.c") (exists "include:all.gst"))
  1295.      (if (askbool (prompt ("%s%s%s"
  1296.                          "Several header files have been changed, and "
  1297.                          "it is necessary to rebuild all GST's. Would you "
  1298.                          "like this install proceedure rebuild INCLUDE:ALL.GST?"
  1299.                         )
  1300.                         (help "If you choose YES, the file INCLUDE:ALL.GST will "
  1301.                               "be rebuilt. The compiler now adds the options used "
  1302.                               "to compile the GST to the GST, so the use of "
  1303.                               "conflicting compiler options can be detected."
  1304.                         )
  1305.                  )
  1306.         )
  1307.         (
  1308.            (working "Rebuilding all.gst")
  1309.            (run "ram:flush")
  1310.            (execute "ram:makegst")
  1311.         )
  1312.      ) 
  1313.    )
  1314.  
  1315.   )  
  1316.  
  1317. ; else do floppy install
  1318.  
  1319.   (
  1320.    (set @default-dest "")
  1321.    (makedir "t:patches")
  1322.  
  1323.    (message "NOTE: Due to the increased size of some files in 6.55, "
  1324.             "OML will be deleted from SAS_1: and "
  1325.             "MCC and MLN will be deleted from SAS_3:."
  1326.    )
  1327.  
  1328.    (run ("t:6.55_c/decompress 1_files t:patches sc.pch"))
  1329.    (run ("t:6.55_c/decompress 1_files t:patches scsetup.pch"))
  1330.    (run ("t:6.55_c/decompress 1_files t:patches se.pch"))
  1331.    (run ("t:6.55_c/decompress 1_files t:patches smake.pch"))
  1332.    (run ("t:6.55_c/decompress 1_files t:patches scopts.pch"))
  1333.    (run ("t:6.55_c/decompress 1_files t:patches slink.pch"))
  1334.    (run ("t:6.55_c/decompress 1_files t:patches sc1.pch"))
  1335.    (run ("t:6.55_c/decompress 1_files t:patches sekeymap.pch"))
  1336.    (run ("t:6.55_c/decompress 1_files t:patches sc2.pch"))
  1337.    (if (exists "5_files")
  1338.      (
  1339.        (run ("t:6.55_c/decompress 5_files t:patches oml.pch"))
  1340.        (run ("t:6.55_c/decompress 5_files t:patches omd.pch"))
  1341.      )
  1342.      (
  1343.        (run ("t:6.55_c/decompress SASC_6.55_Patch_2:5_files t:patches oml.pch"))
  1344.        (run ("t:6.55_c/decompress SASC_6.55_Patch_2:5_files t:patches omd.pch"))
  1345.      )
  1346.    )
  1347.    
  1348.    (askdisk (assigns) (dest "SASC_6.50_Disk_5")
  1349.             (prompt "Please Insert Disk 5 of the SAS/C Development System")
  1350.             (help "Insert Disk 5 in any drive. "
  1351.             )
  1352.    ) 
  1353.  
  1354.    (run ("t:6.55_c/decompress SASC_6.50_Disk_5:Extra_Utilities/c_files t:6.55_c scompact"))
  1355.  
  1356.    
  1357.    (askdisk (assigns) (dest "SASC_6.50_Disk_1")
  1358.             (prompt "Please Insert Disk 1 of the SAS/C Development System")
  1359.             (help "Insert Disk 1 in any drive. The files will be read from "
  1360.                   "Disk 1, and placed in SC:. Nothing on Disk 1 will be "
  1361.                   "modified." 
  1362.             )
  1363.    ) 
  1364.  
  1365.    (delete "SAS_1:sc/c/oml")
  1366.  
  1367.    (if (exists "SAS_1:sc/c/sc")
  1368.       (
  1369.          (working "Patching sc")
  1370.          (run ("t:6.55_c/decompress SASC_6.50_Disk_1:Compiler/c_files t: sc"))
  1371.          (run ("t:6.55_c/spatch -oSAS_1:sc/c/sc -pt:patches/sc.pch t:sc"))
  1372.          (delete "t:sc")
  1373.       )
  1374.    )
  1375.    (complete 5)
  1376.  
  1377.    (if (exists "SAS_1:sc/c/scsetup")
  1378.       (
  1379.          (working "Patching scsetup")
  1380.          (run ("t:6.55_c/decompress SASC_6.50_Disk_1:Compiler/c_files t: scsetup"))
  1381.          (run ("t:6.55_c/spatch -oSAS_1:sc/c/scsetup -pt:patches/scsetup.pch t:scsetup"))
  1382.          (delete "t:scsetup")
  1383.       )
  1384.    )
  1385.    (complete 10)
  1386.  
  1387.    (if (exists "SAS_1:sc/c/se")
  1388.       (
  1389.          (working "Patching se")
  1390.          (run ("t:6.55_c/decompress SASC_6.50_Disk_1:Compiler/c_files t: se"))
  1391.          (run ("t:6.55_c/spatch -oSAS_1:sc/c/se -pt:patches/se.pch t:se"))
  1392.          (delete "t:se")
  1393.       )
  1394.    )
  1395.    (complete 15)
  1396.  
  1397.    (if (exists "SAS_1:sc/c/smake")
  1398.       (
  1399.          (working "Patching smake")
  1400.          (run ("t:6.55_c/decompress SASC_6.50_Disk_1:Compiler/c_files t: smake"))
  1401.          (run ("t:6.55_c/spatch -oSAS_1:sc/c/smake -pt:patches/smake.pch t:smake"))
  1402.          (delete "t:smake")
  1403.       )
  1404.    )
  1405.  
  1406.    (if (exists "SAS_1:sc/c/scopts")
  1407.       (
  1408.          (working "Patching scopts")
  1409.          (run ("t:6.55_c/decompress SASC_6.50_Disk_1:Compiler/c_files t: scopts"))
  1410.          (run ("t:6.55_c/spatch -oSAS_1:sc/c/scopts -pt:patches/scopts.pch t:scopts"))
  1411.          (delete "t:scopts")
  1412.       )
  1413.    )
  1414.  
  1415.    (if (exists "SAS_1:sc/c/slink")
  1416.       (
  1417.          (working "Patching slink")
  1418.          (run ("t:6.55_c/decompress SASC_6.50_Disk_1:Compiler/c_files t: slink"))
  1419.          (run ("t:6.55_c/spatch -oSAS_1:sc/c/slink -pt:patches/slink.pch t:slink"))
  1420.          (delete "t:slink")
  1421.       )
  1422.    )
  1423.    (complete 20)
  1424.  
  1425.    (if (exists "SAS_1:sc/libs/sc1.library")
  1426.       (
  1427.          (working "Patching sc1.library")
  1428.          (run ("t:6.55_c/decompress SASC_6.50_Disk_1:Compiler/libs_files t: sc1.library"))
  1429.          (run ("t:6.55_c/spatch -oSAS_1:sc/libs/sc1.library -pt:patches/sc1.pch t:sc1.library"))
  1430.          (delete "t:sc1.library")
  1431.       )
  1432.    )
  1433.    (if (exists "SAS_1:sc/libs/sekeymap.library")
  1434.       (
  1435.          (working "Patching sekeymap.library")
  1436.          (run ("t:6.55_c/decompress SASC_6.50_Disk_1:Compiler/libs_files t: sekeymap.library"))
  1437.          (run ("t:6.55_c/spatch -oSAS_1:sc/libs/sekeymap.library -pt:patches/sekeymap.pch t:sekeymap.library"))
  1438.          (delete "t:sekeymap.library")
  1439.       )
  1440.    )
  1441.    (complete 25)
  1442.  
  1443.    (if (exists "SAS_1:sc/libs/sc2.library")
  1444.       (
  1445.          (working "Patching sc2.library")
  1446.          (run ("t:6.55_c/decompress SASC_6.50_Disk_1:Compiler/libs_files t: sc2.library"))
  1447.          (run ("t:6.55_c/spatch -oSAS_1:sc/libs/sc2.library -pt:patches/sc2.pch t:sc2.library"))
  1448.          (delete "t:sc2.library")
  1449.       )
  1450.    )
  1451.    (complete 30)
  1452.  
  1453.    (if (exists "SAS_1:sc/c/omd")
  1454.       (
  1455.          (working "Patching omd")
  1456.          (run ("t:6.55_c/decompress SASC_6.50_Disk_1:floppy/c_files t: omd"))
  1457.          (run ("t:6.55_c/spatch -oSAS_1:sc/c/omd -pt:patches/omd.pch t:omd"))
  1458.          (delete "t:omd")
  1459.       )
  1460.    )
  1461.  
  1462.    (if (exists "SAS_1:sc/c/oml")
  1463.       (
  1464.          (working "Patching oml")
  1465.          (run ("t:6.55_c/decompress SASC_6.50_Disk_1:floppy/c_files t: oml"))
  1466.          (run ("t:6.55_c/spatch -oSAS_1:sc/c/oml -pt:patches/oml.pch t:oml"))
  1467.          (delete "t:oml")
  1468.       )
  1469.    )
  1470.  
  1471.  
  1472.    (run "delete t:patches/#?")
  1473.  
  1474. ; Disk 2
  1475.  
  1476.    (run ("t:6.55_c/decompress 2_files t:patches assert.pch"))
  1477.    (run ("t:6.55_c/decompress 2_files t:patches stdio.pch"))
  1478.    (run ("t:6.55_c/decompress 2_files t:patches stdlib.pch"))
  1479.    (run ("t:6.55_c/decompress 2_files t:patches functions.pch"))
  1480.    (run ("t:6.55_c/decompress 2_files t:patches unistd.pch"))
  1481.    (run ("t:6.55_c/decompress 2_files t:patches math.pch"))
  1482.    (run ("t:6.55_c/decompress 2_files t:patches fcntl.pch"))
  1483.    (run ("t:6.55_c/decompress 2_files t:patches dos.pch"))
  1484.    (run ("t:6.55_c/decompress 2_files t:patches mffp.pch"))
  1485.    (run ("t:6.55_c/decompress 2_files t:patches workbench.pch"))
  1486.    (run ("t:6.55_c/decompress 2_files t:patches datatypesclass.pch"))
  1487.    (run ("t:6.55_c/decompress 2_files t:patches string.pch"))
  1488.    (run ("t:6.55_c/decompress 2_files t:patches cback.pch"))
  1489.    (run ("t:6.55_c/decompress 2_files t:patches c.pch"))
  1490.    (run ("t:6.55_c/decompress 2_files t:patches cres.pch"))
  1491.    (run ("t:6.55_c/decompress 2_files t:patches catch.pch"))
  1492.    (run ("t:6.55_c/decompress 2_files t:patches catchres.pch"))
  1493.    (run ("t:6.55_c/decompress 2_files t:patches catchresnr.pch"))
  1494.    (run ("t:6.55_c/decompress 2_files t:patches catchnr.pch"))
  1495.    (run ("t:6.55_c/decompress 2_files t:patches commwben.pch"))
  1496.    (run ("t:6.55_c/decompress 2_files t:patches dir.pch"))
  1497.    (run ("t:6.55_c/decompress 2_files t:patches commhuge.pch"))
  1498.    (run ("t:6.55_c/decompress 2_files t:patches sclib.pch"))
  1499.    (run ("t:6.55_c/decompress 2_files t:patches scmlib.pch"))
  1500.  
  1501.    (askdisk (assigns) (dest "SASC_6.50_Disk_2")
  1502.             (prompt "Please Insert Disk 2 of the SAS/C Development System")
  1503.             (help "Insert Disk 2 in any drive. The files will be read from "
  1504.                   "Disk 2, and placed in SC:. Nothing on Disk 2 will be "
  1505.                   "modified." 
  1506.             )
  1507.    ) 
  1508.    (if (exists "SAS_2:sc/include/assert.h")
  1509.       (
  1510.          (working "Patching assert.h")
  1511.          (run ("t:6.55_c/decompress SASC_6.50_Disk_2:compiler/include_files t: assert.h"))
  1512.          (run ("t:6.55_c/spatch -ot:assert.h.new -pt:patches/assert.pch t:assert.h"))
  1513.          (run ("t:6.55_c/scompact t:assert.h.new SAS_2:sc/include/assert.h"))
  1514.          (delete "t:assert.h")
  1515.          (delete "t:assert.h.new")
  1516.       )
  1517.    )
  1518.    (if (exists "SAS_2:sc/include/stdlib.h")
  1519.       (
  1520.          (working "Patching stdlib.h")
  1521.          (run ("t:6.55_c/decompress SASC_6.50_Disk_2:compiler/include_files t: stdlib.h"))
  1522.          (run ("t:6.55_c/spatch -ot:stdlib.h.new -pt:patches/stdlib.pch t:stdlib.h"))
  1523.          (run ("t:6.55_c/scompact t:stdlib.h.new SAS_2:sc/include/stdlib.h"))
  1524.          (delete "t:stdlib.h")
  1525.          (delete "t:stdlib.h.new")
  1526.       )
  1527.    )
  1528.    (if (exists "SAS_2:sc/include/stdio.h")
  1529.       (
  1530.          (working "Patching stdio.h")
  1531.          (run ("t:6.55_c/decompress SASC_6.50_Disk_2:compiler/include_files t: stdio.h"))
  1532.          (run ("t:6.55_c/spatch -ot:stdio.h.new -pt:patches/stdio.pch t:stdio.h"))
  1533.          (run ("t:6.55_c/scompact t:stdio.h.new SAS_2:sc/include/stdio.h"))
  1534.          (delete "t:stdio.h")
  1535.          (delete "t:stdio.h.new")
  1536.       )
  1537.    )
  1538.    (if (exists "SAS_2:sc/include/functions.h")
  1539.       (
  1540.          (working "Patching functions.h")
  1541.          (run ("t:6.55_c/decompress SASC_6.50_Disk_2:compiler/include_files t: functions.h"))
  1542.          (run ("t:6.55_c/spatch -ot:functions.h.new -pt:patches/functions.pch t:functions.h"))
  1543.          (run ("t:6.55_c/scompact t:functions.h.new SAS_2:sc/include/functions.h"))
  1544.          (delete "t:functions.h")
  1545.          (delete "t:functions.h.new")
  1546.       )
  1547.    )
  1548.    (if (exists "SAS_2:sc/include/unistd.h")
  1549.       (
  1550.          (working "Patching unistd.h")
  1551.          (run ("t:6.55_c/decompress SASC_6.50_Disk_2:compiler/include_files t: unistd.h"))
  1552.          (run ("t:6.55_c/spatch -ot:unistd.h.new -pt:patches/unistd.pch t:unistd.h"))
  1553.          (run ("t:6.55_c/scompact t:unistd.h.new SAS_2:sc/include/unistd.h"))
  1554.          (delete "t:unistd.h")
  1555.          (delete "t:unistd.h.new")
  1556.       )
  1557.    )
  1558.    (if (exists "SAS_2:sc/include/math.h")
  1559.       (
  1560.          (working "Patching math.h")
  1561.          (run ("t:6.55_c/decompress SASC_6.50_Disk_2:compiler/include_files t: math.h"))
  1562.          (run ("t:6.55_c/spatch -ot:math.h.new -pt:patches/math.pch t:math.h"))
  1563.          (run ("t:6.55_c/scompact t:math.h.new SAS_2:sc/include/math.h"))
  1564.          (delete "t:math.h")
  1565.          (delete "t:math.h.new")
  1566.       )
  1567.    )
  1568.    (if (exists "SAS_2:sc/include/fcntl.h")
  1569.       (
  1570.          (working "Patching fcntl.h")
  1571.          (run ("t:6.55_c/decompress SASC_6.50_Disk_2:compiler/include_files t: fcntl.h"))
  1572.          (run ("t:6.55_c/spatch -ot:fcntl.h.new -pt:patches/fcntl.pch t:fcntl.h"))
  1573.          (run ("t:6.55_c/scompact t:fcntl.h.new SAS_2:sc/include/fcntl.h"))
  1574.          (delete "t:fcntl.h")
  1575.          (delete "t:fcntl.h.new")
  1576.       )
  1577.    )
  1578.    (if (exists "SAS_2:sc/include/dos.h")
  1579.       (
  1580.          (working "Patching dos.h")
  1581.          (run ("t:6.55_c/decompress SASC_6.50_Disk_2:compiler/include_files t: dos.h"))
  1582.          (run ("t:6.55_c/spatch -ot:dos.h.new -pt:patches/dos.pch t:dos.h"))
  1583.          (run ("t:6.55_c/scompact t:dos.h.new SAS_2:sc/include/dos.h"))
  1584.          (delete "t:dos.h")
  1585.          (delete "t:dos.h.new")
  1586.       )
  1587.    )
  1588.    (if (exists "SAS_2:sc/include/mffp.h")
  1589.       (
  1590.          (working "Patching mffp.h")
  1591.          (run ("t:6.55_c/decompress SASC_6.50_Disk_2:compiler/include_files t: mffp.h"))
  1592.          (run ("t:6.55_c/spatch -ot:mffp.h.new -pt:patches/mffp.pch t:mffp.h"))
  1593.          (run ("t:6.55_c/scompact t:mffp.h.new SAS_2:sc/include/mffp.h"))
  1594.          (delete "t:mffp.h")
  1595.          (delete "t:mffp.h.new")
  1596.       )
  1597.    )
  1598.    (if (exists "SAS_2:sc/include/string.h")
  1599.       (
  1600.          (working "Patching string.h")
  1601.          (run ("t:6.55_c/decompress SASC_6.50_Disk_2:compiler/include_files t: string.h"))
  1602.          (run ("t:6.55_c/spatch -ot:string.h.new -pt:patches/string.pch t:string.h"))
  1603.          (run ("t:6.55_c/scompact t:string.h.new SAS_2:sc/include/string.h"))
  1604.          (delete "t:string.h")
  1605.          (delete "t:string.h.new")
  1606.       )
  1607.    )
  1608.    (if (exists "SAS_2:sc/include/workbench/workbench.h")
  1609.       (
  1610.          (working "Patching workbench/workbench.h")
  1611.          (run ("t:6.55_c/decompress SASC_6.50_Disk_2:compiler/include/workbench_files t: workbench.h"))
  1612.          (run ("t:6.55_c/spatch -ot:workbench.h.new -pt:patches/workbench.pch t:workbench.h"))
  1613.          (run ("t:6.55_c/scompact t:workbench.h.new SAS_2:sc/include/workbench/workbench.h"))
  1614.          (delete "t:workbench.h")
  1615.          (delete "t:workbench.h.new")
  1616.       )
  1617.    )
  1618.    (if (exists "SAS_2:sc/include/datatypes/datatypesclass.h")
  1619.       (
  1620.          (working "Patching datatypes/datatypesclass.h")
  1621.          (run ("t:6.55_c/decompress SASC_6.50_Disk_2:compiler/include/datatypes_files t: datatypesclass.h"))
  1622.          (run ("t:6.55_c/spatch -ot:datatypesclass.h.new -pt:patches/datatypesclass.pch t:datatypesclass.h"))
  1623.          (run ("t:6.55_c/scompact t:datatypesclass.h.new SAS_2:sc/include/datatypes/datatypesclass.h"))
  1624.          (delete "t:datatypesclass.h")
  1625.          (delete "t:datatypesclass.h.new")
  1626.       )
  1627.    )
  1628.    (complete 35)
  1629.  
  1630.    (if (exists "SAS_2:sc/lib/cback.o")
  1631.       (
  1632.          (working "Patching cback.o")
  1633.          (run ("t:6.55_c/decompress SASC_6.50_Disk_2:compiler/lib_files t: cback.o"))
  1634.          (run ("t:6.55_c/spatch -oSAS_2:sc/lib/cback.o -pt:patches/cback.pch t:cback.o"))
  1635.          (delete "t:cback.o")
  1636.       )
  1637.    )
  1638.    (if (exists "SAS_2:sc/lib/c.o")
  1639.       (
  1640.          (working "Patching c.o")
  1641.          (run ("t:6.55_c/decompress SASC_6.50_Disk_2:compiler/lib_files t: c.o"))
  1642.          (run ("t:6.55_c/spatch -oSAS_2:sc/lib/c.o -pt:patches/c.pch t:c.o"))
  1643.          (delete "t:c.o")
  1644.       )
  1645.    )
  1646.    (if (exists "SAS_2:sc/lib/libinit.o")
  1647.       (
  1648.          (working "Patching libinit.o")
  1649.          (run ("t:6.55_c/decompress SASC_6.50_Disk_2:compiler/lib_files t: libinit.o"))
  1650.          (run ("t:6.55_c/spatch -oSAS_2:sc/lib/libinit.o -pt:patches/libinit.pch t:libinit.o"))
  1651.          (delete "t:libinit.o")
  1652.       )
  1653.    )
  1654.    (if (exists "SAS_2:sc/lib/libinitr.o")
  1655.       (
  1656.          (working "Patching libinitr.o")
  1657.          (run ("t:6.55_c/decompress SASC_6.50_Disk_2:compiler/lib_files t: libinitr.o"))
  1658.          (run ("t:6.55_c/spatch -oSAS_2:sc/lib/libinitr.o -pt:patches/libinitr.pch t:libinitr.o"))
  1659.          (delete "t:libinitr.o")
  1660.       )
  1661.    )
  1662.    (if (exists "SAS_2:sc/lib/devinit.o")
  1663.       (
  1664.          (working "Patching devinit.o")
  1665.          (run ("t:6.55_c/decompress SASC_6.50_Disk_2:compiler/lib_files t: devinit.o"))
  1666.          (run ("t:6.55_c/spatch -oSAS_2:sc/lib/devinit.o -pt:patches/devinit.pch t:devinit.o"))
  1667.          (delete "t:devinit.o")
  1668.       )
  1669.    )
  1670.    (if (exists "SAS_2:sc/lib/devinitr.o")
  1671.       (
  1672.          (working "Patching devinitr.o")
  1673.          (run ("t:6.55_c/decompress SASC_6.50_Disk_2:compiler/lib_files t: devinitr.o"))
  1674.          (run ("t:6.55_c/spatch -oSAS_2:sc/lib/devinitr.o -pt:patches/devinitr.pch t:devinitr.o"))
  1675.          (delete "t:devinitr.o")
  1676.       )
  1677.    )
  1678.    (if (exists "SAS_2:sc/lib/cres.o")
  1679.       (
  1680.          (working "Patching cres.o")
  1681.          (run ("t:6.55_c/decompress SASC_6.50_Disk_2:compiler/lib_files t: cres.o"))
  1682.          (run ("t:6.55_c/spatch -oSAS_2:sc/lib/cres.o -pt:patches/cres.pch t:cres.o"))
  1683.          (delete "t:cres.o")
  1684.       )
  1685.    )
  1686.    (if (exists "SAS_2:sc/lib/catch.o")
  1687.       (
  1688.          (working "Patching catch.o")
  1689.          (run ("t:6.55_c/decompress SASC_6.50_Disk_2:compiler/lib_files t: catch.o"))
  1690.          (run ("t:6.55_c/spatch -oSAS_2:sc/lib/catch.o -pt:patches/catch.pch t:catch.o"))
  1691.          (delete "t:catch.o")
  1692.       )
  1693.    )
  1694.    (if (exists "SAS_2:sc/lib/catchres.o")
  1695.       (
  1696.          (working "Patching catchres.o")
  1697.          (run ("t:6.55_c/decompress SASC_6.50_Disk_2:compiler/lib_files t: catchres.o"))
  1698.          (run ("t:6.55_c/spatch -oSAS_2:sc/lib/catchres.o -pt:patches/catchres.pch t:catchres.o"))
  1699.          (delete "t:catchres.o")
  1700.       )
  1701.    )
  1702.    (if (exists "SAS_2:sc/lib/catchresnr.o")
  1703.       (
  1704.          (working "Patching catchresnr.o")
  1705.          (run ("t:6.55_c/decompress SASC_6.50_Disk_2:compiler/lib_files t: catchresnr.o"))
  1706.          (run ("t:6.55_c/spatch -oSAS_2:sc/lib/catchresnr.o -pt:patches/catchresnr.pch t:catchresnr.o"))
  1707.          (delete "t:catchresnr.o")
  1708.       )
  1709.    )
  1710.    (if (exists "SAS_2:sc/lib/catchnr.o")
  1711.       (
  1712.          (working "Patching catchnr.o")
  1713.          (run ("t:6.55_c/decompress SASC_6.50_Disk_2:compiler/lib_files t: catchnr.o"))
  1714.          (run ("t:6.55_c/spatch -oSAS_2:sc/lib/catchnr.o -pt:patches/catchnr.pch t:catchnr.o"))
  1715.          (delete "t:catchnr.o")
  1716.       )
  1717.    )
  1718.    (complete 40)
  1719.  
  1720.    (if (exists "SAS_2:sc/include/sys/commwben.h")
  1721.       (
  1722.          (working "Patching sys/commwben.h")
  1723.          (run ("t:6.55_c/decompress SASC_6.50_Disk_2:compiler/include/sys_files t: commwben.h"))
  1724.          (run ("t:6.55_c/spatch -ot:commwben.h.new -pt:patches/commwben.pch t:commwben.h"))
  1725.          (run ("t:6.55_c/scompact t:commwben.h.new SAS_2:sc/include/sys/commwben.h"))
  1726.          (delete "t:commwben.h")
  1727.          (delete "t:commwben.h.new")
  1728.       )
  1729.    )
  1730.    (if (exists "SAS_2:sc/include/sys/commhuge.h")
  1731.       (
  1732.          (working "Patching sys/commhuge.h")
  1733.          (run ("t:6.55_c/decompress SASC_6.50_Disk_2:compiler/include/sys_files t: commhuge.h"))
  1734.          (run ("t:6.55_c/spatch -ot:commhuge.h.new -pt:patches/commhuge.pch t:commhuge.h"))
  1735.          (run ("t:6.55_c/scompact t:commhuge.h.new SAS_2:sc/include/sys/commhuge.h"))
  1736.          (delete "t:commhuge.h")
  1737.          (delete "t:commhuge.h.new")
  1738.       )
  1739.    )
  1740.    (if (exists "SAS_2:sc/include/sys/dir.h")
  1741.       (
  1742.          (working "Patching sys/dir.h")
  1743.          (run ("t:6.55_c/decompress SASC_6.50_Disk_2:compiler/include/sys_files t: dir.h"))
  1744.          (run ("t:6.55_c/spatch -ot:dir.h.new -pt:patches/dir.pch t:dir.h"))
  1745.          (run ("t:6.55_c/scompact t:dir.h.new SAS_2:sc/include/sys/dir.h"))
  1746.          (delete "t:dir.h")
  1747.          (delete "t:dir.h.new")
  1748.       )
  1749.    )
  1750.    (complete 45)
  1751.  
  1752.    (if (exists "SAS_2:sc/lib/sc.lib")
  1753.       (
  1754.          (working "Patching sc.lib")
  1755.          (run ("t:6.55_c/decompress SASC_6.50_Disk_2:compiler/lib/sc.lib_files t: sc.lib"))
  1756.          (run ("t:6.55_c/spatch -oSAS_2:sc/lib/sc.lib -pt:patches/sclib.pch t:sc.lib"))
  1757.          (delete "t:sc.lib")
  1758.       )
  1759.    )
  1760.    (complete 50)
  1761.  
  1762.    (if (exists "SAS_2:sc/lib/scm.lib")
  1763.       (
  1764.          (working "Patching scm.lib")
  1765.          (run ("t:6.55_c/decompress SASC_6.50_Disk_2:compiler/lib/scm.lib_files t: scm.lib"))
  1766.          (run ("t:6.55_c/spatch -oSAS_2:sc/lib/scm.lib -pt:patches/scmlib.pch t:scm.lib"))
  1767.          (delete "t:scm.lib")
  1768.       )
  1769.    )
  1770.    (complete 55)
  1771.  
  1772.    (run "delete t:patches/#?")
  1773.  
  1774. ; Disk 3
  1775.  
  1776.    (run ("t:6.55_c/decompress 3_files t:patches scpeep.pch"))
  1777.    (run ("t:6.55_c/decompress 3_files t:patches scgo.pch"))
  1778.  
  1779.    (askdisk (assigns) (dest "SASC_6.50_Disk_3")
  1780.             (prompt "Please Insert Disk 3 of the SAS/C Development System")
  1781.             (help "Insert Disk 3 in any drive. The files will be read from "
  1782.                   "Disk 3, and placed in SC:. Nothing on Disk 3 will be "
  1783.                   "modified." 
  1784.             )
  1785.    ) 
  1786.  
  1787.    (delete "SAS_3:sc/c/mcc")
  1788.    (delete "SAS_3:sc/c/mln")
  1789.  
  1790.    (if (exists "SAS_3:sc/libs/scpeep.library")
  1791.       (
  1792.          (working "Patching scpeep.library")
  1793.          (run ("t:6.55_c/decompress SASC_6.50_Disk_3:optimizers/libs_files t: scpeep.library"))
  1794.          (run ("t:6.55_c/spatch -oSAS_3:sc/libs/scpeep.library -pt:patches/scpeep.pch t:scpeep.library"))
  1795.          (delete "t:scpeep.library")
  1796.       )
  1797.    )
  1798.    (complete 60)
  1799.  
  1800.    (if (exists "SAS_3:sc/libs/scgo.library")
  1801.       (
  1802.          (working "Patching scgo.library")
  1803.          (run ("t:6.55_c/decompress SASC_6.50_Disk_3:optimizers/libs_files t: scgo.library"))
  1804.          (run ("t:6.55_c/spatch -oSAS_3:sc/libs/scgo.library -pt:patches/scgo.pch t:scgo.library"))
  1805.          (delete "t:scgo.library")
  1806.       )
  1807.    )
  1808.    (complete 65)
  1809.  
  1810.    (run "delete t:patches/#?")
  1811.  
  1812. ; Disk 4
  1813.    (if (exists "4_files")
  1814.      (
  1815.        (run ("t:6.55_c/decompress 4_files t:patches cpr.pch"))
  1816.        (run ("t:6.55_c/decompress 4_files t:patches schi.pch"))
  1817.      )
  1818.      (
  1819.        (run ("t:6.55_c/decompress SASC_6.55_Patch_2:4_files t:patches cpr.pch"))
  1820.        (run ("t:6.55_c/decompress SASC_6.55_Patch_2:4_files t:patches schi.pch"))
  1821.      )
  1822.    )
  1823.  
  1824.    (askdisk (assigns) (dest "SASC_6.50_Disk_4")
  1825.             (prompt "Please Insert Disk 4 of the SAS/C Development System")
  1826.             (help "Insert Disk 4 in any drive. The files will be read from "
  1827.                   "Disk 4, and placed in SC:. Nothing on Disk 4 will be "
  1828.                   "modified." 
  1829.             )
  1830.    ) 
  1831.  
  1832.    (if (exists "SAS_3:sc/c/cpr")
  1833.       (
  1834.          (working "Patching cpr")
  1835.          (run ("t:6.55_c/decompress SASC_6.50_Disk_4:Debugger/c_files t: cpr"))
  1836.          (run ("t:6.55_c/spatch -oSAS_3:sc/c/cpr -pt:patches/cpr.pch t:cpr"))
  1837.          (delete "t:cpr")
  1838.       )
  1839.    )
  1840.    (complete 70)
  1841.  
  1842.    (if (exists "SAS_3:sc/libs/schi.library")
  1843.       (
  1844.          (working "Patching schi.library")
  1845.          (run ("t:6.55_c/decompress SASC_6.50_Disk_4:Debugger/libs_files t: schi.library"))
  1846.          (run ("t:6.55_c/spatch -oSAS_3:sc/libs/schi.library -pt:patches/schi.pch t:schi.library"))
  1847.          (delete "t:schi.library")
  1848.       )
  1849.    )
  1850.    (complete 75)
  1851.  
  1852.    (run "delete t:patches/#?")
  1853.  
  1854. ; Disk 5
  1855.    (if (exists "5_files")
  1856.      (
  1857.        (run ("t:6.55_c/decompress 5_files t:patches mkmk.pch"))
  1858.        (run ("t:6.55_c/decompress 5_files t:patches sc5.pch"))
  1859.        (run ("t:6.55_c/decompress 5_files t:patches cctosc.pch"))
  1860.        (run ("t:6.55_c/decompress 5_files t:patches lntoslink.pch"))
  1861.        (run ("t:6.55_c/decompress 5_files t:patches scompact.pch"))
  1862.        (run ("t:6.55_c/decompress 5_files t:patches splat.pch"))
  1863.        (run ("t:6.55_c/decompress 5_files t:patches grep.pch"))
  1864.      )
  1865.      (
  1866.        (run ("t:6.55_c/decompress SASC_6.55_Patch_2:5_files t:patches mkmk.pch"))
  1867.        (run ("t:6.55_c/decompress SASC_6.55_Patch_2:5_files t:patches sc5.pch"))
  1868.        (run ("t:6.55_c/decompress SASC_6.55_Patch_2:5_files t:patches cctosc.pch"))
  1869.        (run ("t:6.55_c/decompress SASC_6.55_Patch_2:5_files t:patches lntoslink.pch"))
  1870.        (run ("t:6.55_c/decompress SASC_6.55_Patch_2:5_files t:patches scompact.pch"))
  1871.        (run ("t:6.55_c/decompress SASC_6.55_Patch_2:5_files t:patches splat.pch"))
  1872.        (run ("t:6.55_c/decompress SASC_6.55_Patch_2:5_files t:patches grep.pch"))
  1873.      )
  1874.    )
  1875.    
  1876.    (askdisk (assigns) (dest "SASC_6.50_Disk_5")
  1877.             (prompt "Please Insert Disk 5 of the SAS/C Development System")
  1878.             (help "Insert Disk 5 in any drive. The files will be read from "
  1879.                   "Disk 5, and placed in SC:. Nothing on Disk 5 will be "
  1880.                   "modified." 
  1881.             )
  1882.    ) 
  1883.  
  1884.    (if (exists "SAS_3:sc/c/mkmk")
  1885.       (
  1886.          (working "Patching mkmk")
  1887.          (run ("t:6.55_c/decompress SASC_6.50_Disk_5:Extra_Utilities/c_files t: mkmk"))
  1888.          (run ("t:6.55_c/spatch -oSAS_3:sc/c/mkmk -pt:patches/mkmk.pch t:mkmk"))
  1889.          (delete "t:mkmk")
  1890.       )
  1891.    )
  1892.    (complete 80)
  1893.  
  1894.    (if (exists "SAS_3:sc/c/sc5")
  1895.       (
  1896.          (working "Patching sc5")
  1897.          (run ("t:6.55_c/decompress SASC_6.50_Disk_5:Extra_Utilities/c_files t: sc5"))
  1898.          (run ("t:6.55_c/spatch -oSAS_3:sc/c/sc5 -pt:patches/sc5.pch t:sc5"))
  1899.          (delete "t:sc5")
  1900.       )
  1901.    )
  1902.    (complete 85)
  1903.  
  1904.    (if (exists "SAS_3:sc/c/cctosc")
  1905.       (
  1906.          (working "Patching cctosc")
  1907.          (run ("t:6.55_c/decompress SASC_6.50_Disk_5:Extra_Utilities/c_files t: cctosc"))
  1908.          (run ("t:6.55_c/spatch -oSAS_3:sc/c/cctosc -pt:patches/cctosc.pch t:cctosc"))
  1909.          (delete "t:cctosc")
  1910.       )
  1911.    )
  1912.    (complete 90)
  1913.  
  1914.    (if (exists "SAS_3:sc/c/lntoslink")
  1915.       (
  1916.          (working "Patching lntoslink")
  1917.          (run ("t:6.55_c/decompress SASC_6.50_Disk_5:Extra_Utilities/c_files t: lntoslink"))
  1918.          (run ("t:6.55_c/spatch -oSAS_3:sc/c/lntoslink -pt:patches/lntoslink.pch t:lntoslink"))
  1919.          (delete "t:lntoslink")
  1920.       )
  1921.    )
  1922.    (complete 90)
  1923.  
  1924.    (if (exists "SAS_3:sc/c/mcc")
  1925.       (
  1926.          (working "Patching mcc")
  1927.          (run ("t:6.55_c/decompress SASC_6.50_Disk_5:Extra_Utilities/c_files t: mcc"))
  1928.          (run ("t:6.55_c/spatch -oSAS_3:sc/c/mcc -pt:patches/mcc.pch t:mcc"))
  1929.          (delete "t:mcc")
  1930.       )
  1931.    )
  1932.    (complete 95)
  1933.  
  1934.    (if (exists "SAS_3:sc/c/mln")
  1935.       (
  1936.          (working "Patching mln")
  1937.          (run ("t:6.55_c/decompress SASC_6.50_Disk_5:Extra_Utilities/c_files t: mln"))
  1938.          (run ("t:6.55_c/spatch -oSAS_3:sc/c/mln -pt:patches/mln.pch t:mln"))
  1939.          (delete "t:mln")
  1940.       )
  1941.    )
  1942.  
  1943.    (if (exists "SAS_3:sc/c/splat")
  1944.       (
  1945.          (working "Patching splat")
  1946.          (run ("t:6.55_c/decompress SASC_6.50_Disk_5:Extra_Utilities/c_files t: splat"))
  1947.          (run ("t:6.55_c/spatch -oSAS_3:sc/c/splat -pt:patches/splat.pch t:splat"))
  1948.          (delete "t:splat")
  1949.       )
  1950.    )
  1951.    (if (exists "SAS_3:sc/c/grep")
  1952.       (
  1953.          (working "Patching grep")
  1954.          (run ("t:6.55_c/decompress SASC_6.50_Disk_5:Extra_Utilities/c_files t: grep"))
  1955.          (run ("t:6.55_c/spatch -oSAS_3:sc/c/grep -pt:patches/grep.pch t:grep"))
  1956.          (delete "t:grep")
  1957.       )
  1958.    )
  1959.    (if (exists "SAS_3:sc/c/scompact")
  1960.       (
  1961.          (working "Patching scompact")
  1962.          (run ("t:6.55_c/decompress SASC_6.50_Disk_5:Extra_Utilities/c_files t: scompact"))
  1963.          (run ("t:6.55_c/spatch -oSAS_3:sc/c/scompact -pt:patches/scompact.pch t:scompact"))
  1964.          (delete "t:scompact")
  1965.       )
  1966.    )
  1967.  
  1968.  
  1969.  
  1970.   )
  1971. )
  1972.  
  1973. (run "t:6.55_c/flush")
  1974. (delete "t:6.55_c/spatch")
  1975. (delete "t:6.55_c/more")
  1976. (delete "t:6.55_c/flush")
  1977. (delete "t:6.55_c/decompress")
  1978. (delete "t:6.55_c/concat")
  1979. (delete "t:6.55_c")
  1980. (run "delete t:patches all")
  1981. (complete 100)
  1982.